home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / misc / emu / ATUtilities.lha / ATUtilities / janus.asm < prev    next >
Encoding:
Assembly Source File  |  2000-09-26  |  203.5 KB  |  5,046 lines
  1.  
  2. AllocJanusMem():
  3. 002211DC 48E73820          MOVEM.L D2-D4/A2,-(A7)
  4. 002211E0 5E80              ADDQ.L #7,D0
  5. 002211E2 020000FC          ANDI.B #-4,D0
  6. 002211E6 2F0E              MOVE.L A6,-(A7)
  7. 002211E8 2C6E0036          MOVEA.L 54(A6),A6
  8. 002211EC 4EAEFF7C          JSR -132(A6)
  9. 002211F0 2C5F              MOVEA.L (A7)+,A6
  10. 002211F2 4840              SWAP D0
  11. 002211F4 4A40              TST.W D0
  12. 002211F6 660000C0          BNE $2212B8
  13. 002211FA 4840              SWAP D0
  14. 002211FC 246E002A          MOVEA.L 42(A6),A2
  15. 00221200 0C010001          CMPI.B #1,D1
  16. 00221204 670E              BEQ.S $221214
  17. 00221206 0C010002          CMPI.B #2,D1
  18. 0022120A 660000AC          BNE $2212B8
  19. 0022120E 41EA0010          LEA 16(A2),A0
  20. 00221212 6004              BRA.S $221218
  21. 00221214 41EA0002          LEA 2(A2),A0
  22. 00221218 4AE80000          TAS.B 0(A0)
  23. 0022121C 6A06              BPL.S $221224
  24. 0022121E 4E71              NOP
  25. 00221220 4E71              NOP
  26. 00221222 60F4              BRA.S $221218
  27. 00221224 D1FC00020000      ADDA.L #131072,A0
  28. 0022122A 2800              MOVE.L D0,D4
  29. 0022122C 5344              SUBQ.W #1,D4
  30. 0022122E 43E80008          LEA 8(A0),A1
  31. 00221232 7400              MOVEQ #0,D2
  32. 00221234 24680002          MOVEA.L 2(A0),A2
  33. 00221238 D5FC00020000      ADDA.L #131072,A2
  34. 0022123E 6008              BRA.S $221248
  35. 00221240 43F22800          LEA 0(A2,D2.L),A1
  36. 00221244 34290000          MOVE.W 0(A1),D2
  37. 00221248 3411              MOVE.W (A1),D2
  38. 0022124A 0C42FFFF          CMPI.W #-1,D2
  39. 0022124E 6700005C          BEQ $2212AC
  40. 00221252 B8722802          CMP.W 2(A2,D2.L),D4
  41. 00221256 62E8              BHI.S $221240
  42. 00221258 6506              BCS.S $221260
  43. 0022125A 32B22800          MOVE.W 0(A2,D2.L),(A1)
  44. 0022125E 6010              BRA.S $221270
  45. 00221260 2602              MOVE.L D2,D3
  46. 00221262 D640              ADD.W D0,D3
  47. 00221264 25B228003800      MOVE.L 0(A2,D2.L),0(A2,D3.L)
  48. 0022126A 91723802          SUB.W D0,2(A2,D3.L)
  49. 0022126E D151              ADD.W D0,(A1)
  50. 00221270 25802800          MOVE.L D0,0(A2,D2.L)
  51. 00221274 06420004          ADDI.W #4,D2
  52. 00221278 9168000C          SUB.W D0,12(A0)
  53. 0022127C D4A80002          ADD.L 2(A0),D2
  54. 00221280 028100003000      ANDI.L #12288,D1
  55. 00221286 EB89              LSL.L #5,D1
  56. 00221288 D481              ADD.L D1,D2
  57. 0022128A 91FC00020000      SUBA.L #131072,A0
  58. 00221290 117C007F0000      MOVE.B #127,0(A0)
  59. 00221296 2002              MOVE.L D2,D0
  60. 00221298 2040              MOVEA.L D0,A0
  61. 0022129A 2F0E              MOVE.L A6,-(A7)
  62. 0022129C 2C6E0036          MOVEA.L 54(A6),A6
  63. 002212A0 4EAEFF76          JSR -138(A6)
  64. 002212A4 2C5F              MOVEA.L (A7)+,A6
  65. 002212A6 4CDF041C          MOVEM.L (A7)+,D2-D4/A2
  66. 002212AA 4E75              RTS
  67.  
  68.  
  69. 002212AC 91FC00020000      SUBA.L #131072,A0
  70. 002212B2 117C007F0000      MOVE.B #127,0(A0)
  71. 002212B8 7000              MOVEQ #0,D0
  72. 002212BA 60DC              BRA.S $221298
  73.  
  74. FreeJanusMem():
  75. 002212BC 48E73020          MOVEM.L D2-D3/A2,-(A7)
  76. 002212C0 2F00              MOVE.L D0,-(A7)
  77. 002212C2 2F09              MOVE.L A1,-(A7)
  78. 002212C4 4FEF0008          LEA 8(A7),A7
  79. 002212C8 246E002A          MOVEA.L 42(A6),A2
  80. 002212CC D5FC00020000      ADDA.L #131072,A2
  81. 002212D2 5E80              ADDQ.L #7,D0
  82. 002212D4 020000FC          ANDI.B #-4,D0
  83. 002212D8 5989              SUBQ.L #4,A1
  84. 002212DA 2F0E              MOVE.L A6,-(A7)
  85. 002212DC 2C6E0036          MOVEA.L 54(A6),A6
  86. 002212E0 4EAEFF7C          JSR -132(A6)
  87. 002212E4 2C5F              MOVEA.L (A7)+,A6
  88. 002212E6 2209              MOVE.L A1,D1
  89. 002212E8 92AE0032          SUB.L 50(A6),D1
  90. 002212EC 650000E4          BCS $2213D2
  91. 002212F0 0C8100080000      CMPI.L #524288,D1
  92. 002212F6 640000DE          BCC $2213D6
  93. 002212FA 2209              MOVE.L A1,D1
  94. 002212FC 0281FFF9FFFF      ANDI.L #-393217,D1
  95. 00221302 2241              MOVEA.L D1,A1
  96. 00221304 41EA0002          LEA 2(A2),A0
  97. 00221308 6100013A          BSR $221444
  98. 0022130C 660C              BNE.S $22131A
  99. 0022130E 41EA0010          LEA 16(A2),A0
  100. 00221312 61000130          BSR $221444
  101. 00221316 670000C2          BEQ $2213DA
  102. 0022131A 91FC00020000      SUBA.L #131072,A0
  103. 00221320 4AE80000          TAS.B 0(A0)
  104. 00221324 6A06              BPL.S $22132C
  105. 00221326 4E71              NOP
  106. 00221328 4E71              NOP
  107. 0022132A 60F4              BRA.S $221320
  108. 0022132C D1FC00020000      ADDA.L #131072,A0
  109. 00221332 24680002          MOVEA.L 2(A0),A2
  110. 00221336 93CA              SUBA.L A2,A1
  111. 00221338 D5FC00020000      ADDA.L #131072,A2
  112. 0022133E 7400              MOVEQ #0,D2
  113. 00221340 2209              MOVE.L A1,D1
  114. 00221342 D168000C          ADD.W D0,12(A0)
  115. 00221346 B0721802          CMP.W 2(A2,D1.L),D0
  116. 0022134A 66000092          BNE $2213DE
  117. 0022134E 43E80008          LEA 8(A0),A1
  118. 00221352 2609              MOVE.L A1,D3
  119. 00221354 6004              BRA.S $22135A
  120. 00221356 43F22800          LEA 0(A2,D2.L),A1
  121. 0022135A 3411              MOVE.W (A1),D2
  122. 0022135C B242              CMP.W D2,D1
  123. 0022135E 62F6              BHI.S $221356
  124. 00221360 67000086          BEQ $2213E8
  125. 00221364 35821800          MOVE.W D2,0(A2,D1.L)
  126. 00221368 53721802          SUBQ.W #1,2(A2,D1.L)
  127. 0022136C 3281              MOVE.W D1,(A1)
  128. 0022136E B689              CMP.L A1,D3
  129. 00221370 6722              BEQ.S $221394
  130. 00221372 2609              MOVE.L A1,D3
  131. 00221374 968A              SUB.L A2,D3
  132. 00221376 D6690002          ADD.W 2(A1),D3
  133. 0022137A 5243              ADDQ.W #1,D3
  134. 0022137C B681              CMP.L D1,D3
  135. 0022137E 62000072          BHI $2213F2
  136. 00221382 6510              BCS.S $221394
  137. 00221384 D0690002          ADD.W 2(A1),D0
  138. 00221388 33400002          MOVE.W D0,2(A1)
  139. 0022138C 5240              ADDQ.W #1,D0
  140. 0022138E 3282              MOVE.W D2,(A1)
  141. 00221390 2209              MOVE.L A1,D1
  142. 00221392 928A              SUB.L A2,D1
  143. 00221394 0C42FFFF          CMPI.W #-1,D2
  144. 00221398 671A              BEQ.S $2213B4
  145. 0022139A 2601              MOVE.L D1,D3
  146. 0022139C D640              ADD.W D0,D3
  147. 0022139E B642              CMP.W D2,D3
  148. 002213A0 6512              BCS.S $2213B4
  149. 002213A2 62000058          BHI $2213FC
  150. 002213A6 D0722802          ADD.W 2(A2,D2.L),D0
  151. 002213AA 35801802          MOVE.W D0,2(A2,D1.L)
  152. 002213AE 35B228001800      MOVE.W 0(A2,D2.L),0(A2,D1.L)
  153. 002213B4 91FC00020000      SUBA.L #131072,A0
  154. 002213BA 117C007F0000      MOVE.B #127,0(A0)
  155. 002213C0 2F0E              MOVE.L A6,-(A7)
  156. 002213C2 2C6E0036          MOVEA.L 54(A6),A6
  157. 002213C6 4EAEFF76          JSR -138(A6)
  158. 002213CA 2C5F              MOVEA.L (A7)+,A6
  159. 002213CC 4CDF040C          MOVEM.L (A7)+,D2-D3/A2
  160. 002213D0 4E75              RTS
  161.  
  162.  
  163.  
  164. 002213D2 60000032          BRA $221406
  165. 002213D6 6000002E          BRA $221406
  166. 002213DA 6000002A          BRA $221406
  167. 002213DE 117C007F0000      MOVE.B #127,0(A0)
  168. 002213E4 60000020          BRA $221406
  169. 002213E8 117C007F0000      MOVE.B #127,0(A0)
  170. 002213EE 60000016          BRA $221406
  171. 002213F2 117C007F0000      MOVE.B #127,0(A0)
  172. 002213F8 6000000C          BRA $221406
  173. 002213FC 117C007F0000      MOVE.B #127,0(A0)
  174. 00221402 60000002          BRA $221406
  175. 00221406 2F0E              MOVE.L A6,-(A7)
  176. 00221408 2C6E0036          MOVEA.L 54(A6),A6
  177. 0022140C 4EAEFF76          JSR -138(A6)
  178. 00221410 2C5F              MOVEA.L (A7)+,A6
  179. 00221412 2F0E              MOVE.L A6,-(A7)
  180. 00221414 2C6E0036          MOVEA.L 54(A6),A6
  181. 00221418 4EAEFF8E          JSR -114(A6)
  182. 0022141C 2C5F              MOVEA.L (A7)+,A6
  183. 0022141E 48E70106          MOVEM.L D7/A5-A6,-(A7)
  184. 00221422 2E3C7FFFFFFF      MOVE.L #$7FFFFFFF,D7
  185. 00221428 2C780004          MOVEA.L 4,A6
  186. 0022142C 4EAEFF94          JSR -108(A6)
  187. 00221430 4CDF6080          MOVEM.L (A7)+,D7/A5-A6
  188. 00221434 2F0E              MOVE.L A6,-(A7)
  189. 00221436 2C6E0036          MOVEA.L 54(A6),A6
  190. 0022143A 4EAEFF7C          JSR -132(A6)
  191. 0022143E 2C5F              MOVEA.L (A7)+,A6
  192. 00221440 6000FF7E          BRA $2213C0
  193. 00221444 2209              MOVE.L A1,D1
  194. 00221446 92A80002          SUB.L 2(A0),D1
  195. 0022144A 6510              BCS.S $22145C
  196. 0022144C B268000A          CMP.W 10(A0),D1
  197. 00221450 620A              BHI.S $22145C
  198. 00221452 4841              SWAP D1
  199. 00221454 4A41              TST.W D1
  200. 00221456 6604              BNE.S $22145C
  201. 00221458 7201              MOVEQ #1,D1
  202. 0022145A 4E75              RTS
  203. 0022145C 7200              MOVEQ #0,D1
  204. 0022145E 4E75              RTS
  205.  
  206.  
  207. SetupJanusSig():
  208. 00221460 48E73C22          MOVEM.L D2-D5/A2/A6,-(A7)
  209. 00221464 2800              MOVE.L D0,D4
  210. 00221466 2A01              MOVE.L D1,D5
  211. 00221468 2F00              MOVE.L D0,-(A7)
  212. 0022146A 203C0000FFFF      MOVE.L #65535,D0
  213. 00221470 C880              AND.L D0,D4
  214. 00221472 CA80              AND.L D0,D5
  215. 00221474 201F              MOVE.L (A7)+,D0
  216. 00221476 2F0E              MOVE.L A6,-(A7)
  217. 00221478 2C6E0036          MOVEA.L 54(A6),A6  ; ExecBase
  218. 0022147C 4EAEFF7C          JSR -132(A6)       ; Forbid()
  219. 00221480 2C5F              MOVEA.L (A7)+,A6   ; JanusBase in A6
  220. 00221482 4A01              TST.B D1
  221. 00221484 6B00011A          BMI $2215A0
  222. 00221488 4A82              TST.L D2
  223. 0022148A 670A              BEQ.S $221496
  224. 0022148C 4EAEFFA6          JSR -90(A6)
  225. 00221490 5240              ADDQ.W #1,D0
  226. 00221492 6600010C          BNE $2215A0
  227. 00221496 93C9              SUBA.L A1,A1
  228. 00221498 2004              MOVE.L D4,D0
  229. 0022149A 20780004          MOVEA.L 4,A0
  230. 0022149E 33FC400000DFF09A  MOVE.W #16384,$DFF09A
  231. 002214A6 52280126          ADDQ.B #1,294(A0)
  232. 002214AA 4EAEFFE2          JSR -30(A6)       ; SetJanusHandler
  233. 002214AE 4A80              TST.L D0
  234. 002214B0 67000020          BEQ $2214D2
  235. 002214B4 2240              MOVEA.L D0,A1
  236. 002214B6 2004              MOVE.L D4,D0
  237. 002214B8 4EAEFFE2          JSR -30(A6)
  238. 002214BC 20780004          MOVEA.L 4,A0
  239. 002214C0 53280126          SUBQ.B #1,294(A0)
  240. 002214C4 6C08              BGE.S $2214CE
  241. 002214C6 33FCC00000DFF09A  MOVE.W #-16384,$DFF09A
  242. 002214CE 600000D0          BRA $2215A0
  243. 002214D2 20780004          MOVEA.L 4,A0
  244. 002214D6 53280126          SUBQ.B #1,294(A0)
  245. 002214DA 6C08              BGE.S $2214E4
  246. 002214DC 33FCC00000DFF09A  MOVE.W #-16384,$DFF09A
  247. 002214E4 7028              MOVEQ #40,D0
  248. 002214E6 223C00010000      MOVE.L #65536,D1
  249. 002214EC 2F0E              MOVE.L A6,-(A7)
  250. 002214EE 2C6E0036          MOVEA.L 54(A6),A6
  251. 002214F2 4EAEFF3A          JSR -198(A6)          ; AllocMem
  252. 002214F6 2C5F              MOVEA.L (A7)+,A6
  253. 002214F8 4A80              TST.L D0
  254. 002214FA 670000A4          BEQ $2215A0
  255. 002214FE 2440              MOVEA.L D0,A2
  256. 00221500 93C9              SUBA.L A1,A1
  257. 00221502 2F0E              MOVE.L A6,-(A7)
  258. 00221504 2C6E0036          MOVEA.L 54(A6),A6
  259. 00221508 4EAEFEDA          JSR -294(A6)         ; FindTask
  260. 0022150C 2C5F              MOVEA.L (A7)+,A6
  261. 0022150E 25400016          MOVE.L D0,22(A2)      ; TaskPtr
  262. 00221512 2040              MOVEA.L D0,A0
  263. 00221514 2568000A000A      MOVE.L 10(A0),10(A2)
  264. 0022151A 7001              MOVEQ #1,D0
  265. 0022151C EBA8              LSL.L D5,D0
  266. 0022151E 2540001A          MOVE.L D0,26(A2)
  267. 00221522 257C002215A40012  MOVE.L #$2215A4,18(A2)   ; IntRoutine
  268. 0022152A 254A000E          MOVE.L A2,14(A2)
  269. 0022152E 35440026          MOVE.W D4,38(A2)         ; JanusIntNum
  270. 00221532 25420022          MOVE.L D2,34(A2)         ; ParamSize
  271. 00221536 673A              BEQ.S $221572
  272. 00221538 2002              MOVE.L D2,D0
  273. 0022153A 2203              MOVE.L D3,D1
  274. 0022153C 4EAEFFC4          JSR -60(A6)
  275. 00221540 48E7B000          MOVEM.L D0/D2-D3,-(A7)
  276. 00221544 DEFC000C          ADDA.W #12,A7
  277. 00221548 2540001E          MOVE.L D0,30(A2)
  278. 0022154C 6614              BNE.S $221562
  279. 0022154E 224A              MOVEA.L A2,A1
  280. 00221550 7028              MOVEQ #40,D0
  281. 00221552 2F0E              MOVE.L A6,-(A7)
  282. 00221554 2C6E0036          MOVEA.L 54(A6),A6
  283. 00221558 4EAEFF2E          JSR -210(A6)
  284. 0022155C 2C5F              MOVEA.L (A7)+,A6
  285. 0022155E 60000040          BRA $2215A0
  286. 00221562 202A001E          MOVE.L 30(A2),D0
  287. 00221566 4EAEFFAC          JSR -84(A6)
  288. 0022156A 2200              MOVE.L D0,D1
  289. 0022156C 2004              MOVE.L D4,D0
  290. 0022156E 4EAEFFA0          JSR -96(A6)
  291. 00221572 2004              MOVE.L D4,D0
  292. 00221574 224A              MOVEA.L A2,A1
  293. 00221576 4EAEFFE2          JSR -30(A6)
  294. 0022157A 2004              MOVE.L D4,D0
  295. 0022157C 7200              MOVEQ #0,D1
  296. 0022157E 4EAEFFD6          JSR -42(A6)
  297. 00221582 2004              MOVE.L D4,D0
  298. 00221584 7201              MOVEQ #1,D1
  299. 00221586 4EAEFFDC          JSR -36(A6)
  300. 0022158A 200A              MOVE.L A2,D0
  301. 0022158C 2040              MOVEA.L D0,A0
  302. 0022158E 2F0E              MOVE.L A6,-(A7)
  303. 00221590 2C6E0036          MOVEA.L 54(A6),A6
  304. 00221594 4EAEFF76          JSR -138(A6)
  305. 00221598 2C5F              MOVEA.L (A7)+,A6
  306. 0022159A 4CDF443C          MOVEM.L (A7)+,D2-D5/A2/A6
  307. 0022159E 4E75              RTS
  308.  
  309. 002215A0 7000              MOVEQ #0,D0
  310. 002215A2 60E8              BRA.S $22158C
  311.  
  312.  
  313. IntRoutine:
  314. 002215A4 2029001A          MOVE.L 26(A1),D0
  315. 002215A8 22690016          MOVEA.L 22(A1),A1
  316. 002215AC 2F0E              MOVE.L A6,-(A7)
  317. 002215AE 2C6E0036          MOVEA.L 54(A6),A6   ; Exec
  318. 002215B2 4EAEFEBC          JSR -324(A6)        ; Signal
  319. 002215B6 2C5F              MOVEA.L (A7)+,A6
  320. 002215B8 4E75              RTS
  321.  
  322.  
  323. CleanupJanusSig:
  324. 002215BA 48E73020          MOVEM.L D2-D3/A2,-(A7)
  325. 002215BE 2448              MOVEA.L A0,A2
  326. 002215C0 2008              MOVE.L A0,D0
  327. 002215C2 673E              BEQ.S $221602
  328. 002215C4 7400              MOVEQ #0,D2
  329. 002215C6 342A0026          MOVE.W 38(A2),D2
  330. 002215CA 262A0022          MOVE.L 34(A2),D3
  331. 002215CE 6712              BEQ.S $2215E2
  332. 002215D0 2002              MOVE.L D2,D0
  333. 002215D2 72FF              MOVEQ #-1,D1
  334. 002215D4 4EAEFFA0          JSR -96(A6)
  335. 002215D8 2003              MOVE.L D3,D0
  336. 002215DA 226A001E          MOVEA.L 30(A2),A1
  337. 002215DE 4EAEFFBE          JSR -66(A6)
  338. 002215E2 2002              MOVE.L D2,D0
  339. 002215E4 93C9              SUBA.L A1,A1
  340. 002215E6 4EAEFFE2          JSR -30(A6)
  341. 002215EA 2002              MOVE.L D2,D0
  342. 002215EC 7200              MOVEQ #0,D1
  343. 002215EE 4EAEFFDC          JSR -36(A6)
  344. 002215F2 224A              MOVEA.L A2,A1
  345. 002215F4 7028              MOVEQ #40,D0
  346. 002215F6 2F0E              MOVE.L A6,-(A7)
  347. 002215F8 2C6E0036          MOVEA.L 54(A6),A6
  348. 002215FC 4EAEFF2E          JSR -210(A6)
  349. 00221600 2C5F              MOVEA.L (A7)+,A6
  350. 00221602 4CDF040C          MOVEM.L (A7)+,D2-D3/A2
  351. 00221606 4E75              RTS
  352.  
  353.  
  354. JanusMemType:
  355. 00221608 90AE0032          SUB.L 50(A6),D0
  356. 0022160C 65000046          BCS $221654
  357. 00221610 0C8000080000      CMPI.L #524288,D0
  358. 00221616 6400003C          BCC $221654
  359. 0022161A 2200              MOVE.L D0,D1
  360. 0022161C 028100060000      ANDI.L #393216,D1
  361. 00221622 B380              EOR.L D1,D0
  362. 00221624 EA89              LSR.L #5,D1
  363. 00221626 0C8000010000      CMPI.L #65536,D0
  364. 0022162C 6500001E          BCS $22164C
  365. 00221630 0C8000018000      CMPI.L #98304,D0
  366. 00221636 6500001C          BCS $221654
  367. 0022163A 0C800001C000      CMPI.L #114688,D0
  368. 00221640 64000012          BCC $221654
  369. 00221644 08C10000          BSET #0,D1
  370. 00221648 60000006          BRA $221650
  371. 0022164C 08C10001          BSET #1,D1
  372. 00221650 2001              MOVE.L D1,D0
  373. 00221652 4E75              RTS
  374. 00221654 48E70106          MOVEM.L D7/A5-A6,-(A7)
  375. 00221658 2E3C7FFFFFFE      MOVE.L #$7FFFFFFE,D7
  376. 0022165E 2C780004          MOVEA.L 4,A6
  377. 00221662 4EAEFF94          JSR -108(A6)
  378. 00221666 4CDF6080          MOVEM.L (A7)+,D7/A5-A6
  379. 0022166A 4E75              RTS
  380.  
  381. JanusMemBase:
  382. 0022166C 2200              MOVE.L D0,D1
  383. 0022166E 08010001          BTST #1,D1
  384. 00221672 660E              BNE.S $221682
  385. 00221674 08010000          BTST #0,D1
  386. 00221678 6720              BEQ.S $22169A
  387. 0022167A 203C00018000      MOVE.L #98304,D0
  388. 00221680 6006              BRA.S $221688
  389. 00221682 203C00000000      MOVE.L #0,D0
  390. 00221688 028100003000      ANDI.L #12288,D1
  391. 0022168E EB89              LSL.L #5,D1
  392. 00221690 8081              OR.L D1,D0
  393. 00221692 D0AE0032          ADD.L 50(A6),D0
  394. 00221696 2040              MOVEA.L D0,A0
  395. 00221698 4E75              RTS
  396.  
  397.  
  398. 0022169A 48E70106          MOVEM.L D7/A5-A6,-(A7)
  399. 0022169E 2E3C7FFFFFFD      MOVE.L #$7FFFFFFD,D7
  400. 002216A4 2C780004          MOVEA.L 4,A6
  401. 002216A8 4EAEFF94          JSR -108(A6)
  402. 002216AC 4CDF6080          MOVEM.L (A7)+,D7/A5-A6
  403. 002216B0 2F0E              MOVE.L A6,-(A7)
  404. 002216B2 2C6E0036          MOVEA.L 54(A6),A6
  405. 002216B6 4EAEFF8E          JSR -114(A6)
  406. 002216BA 2C5F              MOVEA.L (A7)+,A6
  407. 002216BC 2040              MOVEA.L D0,A0
  408. 002216BE 4E75              RTS
  409.  
  410. JanusMemToOffset:
  411. 002216C0 2F02              MOVE.L D2,-(A7)
  412. 002216C2 2400              MOVE.L D0,D2
  413. 002216C4 4EAEFFB2          JSR -78(A6)
  414. 002216C8 2F00              MOVE.L D0,-(A7)
  415. 002216CA 4EAEFFB8          JSR -72(A6)
  416. 002216CE 9480              SUB.L D0,D2
  417. 002216D0 201F              MOVE.L (A7)+,D0
  418. 002216D2 08000001          BTST #1,D0
  419. 002216D6 670E              BEQ.S $2216E6
  420. 002216D8 0C6ED4000076      CMPI.W #-11264,118(A6)
  421. 002216DE 6606              BNE.S $2216E6
  422. 002216E0 048200004000      SUBI.L #16384,D2
  423. 002216E6 2002              MOVE.L D2,D0
  424. 002216E8 241F              MOVE.L (A7)+,D2
  425. 002216EA 4E75              RTS
  426.  
  427.  
  428. "WaitSemaphore"(): -120:
  429. 002216EC 4AD0              TAS.B (A0)
  430. 002216EE 6A06              BPL.S $2216F6
  431. 002216F0 4E71              NOP
  432. 002216F2 4E71              NOP
  433. 002216F4 60F6              BRA.S $2216EC
  434. 002216F6 4E75              RTS
  435.  
  436. -222( D0 ):
  437. 002216F8 7001              MOVEQ #1,D0
  438. 002216FA 4AD0              TAS.B (A0)
  439. 002216FC 6A02              BPL.S $221700
  440. 002216FE 7000              MOVEQ #0,D0
  441. 00221700 4E75              RTS
  442.  
  443. "ClearSemaphore"(): -126
  444. 00221702 10BC007F          MOVE.B #127,(A0)
  445. 00221706 4E75              RTS
  446.  
  447.  
  448. -192: (a0,d0,d1)
  449. 00221708 48E71838          MOVEM.L D3-D4/A2-A4,-(A7)
  450. 0022170C 247C00000000      MOVEA.L #0,A2
  451. 00221712 264A              MOVEA.L A2,A3
  452. 00221714 2848              MOVEA.L A0,A4
  453. 00221716 7600              MOVEQ #0,D3
  454. 00221718 2803              MOVE.L D3,D4
  455. 0022171A 3600              MOVE.W D0,D3
  456. 0022171C 3801              MOVE.W D1,D4
  457. 0022171E 203C00000008      MOVE.L #8,D0
  458. 00221724 223C00001001      MOVE.L #4097,D1
  459. 0022172A 4EAEFFC4          JSR -60(A6)
  460. 0022172E 4A80              TST.L D0
  461. 00221730 67000040          BEQ $221772
  462. 00221734 2440              MOVEA.L D0,A2
  463. 00221736 2003              MOVE.L D3,D0
  464. 00221738 2204              MOVE.L D4,D1
  465. 0022173A 4EAEFFC4          JSR -60(A6)
  466. 0022173E 4A80              TST.L D0
  467. 00221740 67000030          BEQ $221772
  468. 00221744 2640              MOVEA.L D0,A3
  469. 00221746 4EAEFFAC          JSR -84(A6)
  470. 0022174A 35400002          MOVE.W D0,2(A2)
  471. 0022174E 35430004          MOVE.W D3,4(A2)
  472. 00221752 35440006          MOVE.W D4,6(A2)
  473. 00221756 2014              MOVE.L (A4),D0
  474. 00221758 6700000A          BEQ $221764
  475. 0022175C 4EAEFFAC          JSR -84(A6)
  476. 00221760 60000006          BRA $221768
  477. 00221764 303CFFFF          MOVE.W #-1,D0
  478. 00221768 35400000          MOVE.W D0,0(A2)
  479. 0022176C 288A              MOVE.L A2,(A4)
  480. 0022176E 60000032          BRA $2217A2
  481. 00221772 B5FC00000000      CMPA.L #0,A2
  482. 00221778 67000012          BEQ $22178C
  483. 0022177C 224A              MOVEA.L A2,A1
  484. 0022177E 203C00000008      MOVE.L #8,D0
  485. 00221784 4EAEFFBE          JSR -66(A6)
  486. 00221788 347C0000          MOVEA.W #0,A2
  487. 0022178C B7FC00000000      CMPA.L #0,A3
  488. 00221792 6700000E          BEQ $2217A2
  489. 00221796 224B              MOVEA.L A3,A1
  490. 00221798 2003              MOVE.L D3,D0
  491. 0022179A 4EAEFFBE          JSR -66(A6)
  492. 0022179E 367C0000          MOVEA.W #0,A3
  493. 002217A2 200B              MOVE.L A3,D0
  494. 002217A4 204B              MOVEA.L A3,A0
  495. 002217A6 4CDF1C18          MOVEM.L (A7)+,D3-D4/A2-A4
  496. 002217AA 4E75              RTS
  497.  
  498. -204 (a0,a1)
  499. 002217AC 48E70030          MOVEM.L A2-A3,-(A7)
  500. 002217B0 2448              MOVEA.L A0,A2
  501. 002217B2 2649              MOVEA.L A1,A3
  502. 002217B4 2052              MOVEA.L (A2),A0
  503. 002217B6 B1FC00000000      CMPA.L #0,A0
  504. 002217BC 66000008          BNE $2217C6
  505. 002217C0 2493              MOVE.L (A3),(A2)
  506. 002217C2 60000024          BRA $2217E8
  507. 002217C6 30280000          MOVE.W 0(A0),D0
  508. 002217CA 0C40FFFF          CMPI.W #-1,D0
  509. 002217CE 6700000C          BEQ $2217DC
  510. 002217D2 323C1001          MOVE.W #4097,D1
  511. 002217D6 4EAEFF58          JSR -168(A6)
  512. 002217DA 60EA              BRA.S $2217C6
  513. 002217DC 2448              MOVEA.L A0,A2
  514. 002217DE 2013              MOVE.L (A3),D0
  515. 002217E0 4EAEFFAC          JSR -84(A6)
  516. 002217E4 35400000          MOVE.W D0,0(A2)
  517. 002217E8 26BC00000000      MOVE.L #0,(A3)
  518. 002217EE 4CDF0C00          MOVEM.L (A7)+,A2-A3
  519. 002217F2 4E75              RTS
  520.  
  521. -198: (a0,d0)
  522. 002217F4 48E73020          MOVEM.L D2-D3/A2,-(A7)
  523. 002217F8 2450              MOVEA.L (A0),A2
  524. 002217FA 20BC00000000      MOVE.L #0,(A0)
  525. 00221800 B5FC00000000      CMPA.L #0,A2
  526. 00221806 6700004C          BEQ $221854
  527. 0022180A 3400              MOVE.W D0,D2
  528. 0022180C 362A0000          MOVE.W 0(A2),D3
  529. 00221810 4A42              TST.W D2
  530. 00221812 6700001C          BEQ $221830
  531. 00221816 302A0002          MOVE.W 2(A2),D0
  532. 0022181A 7200              MOVEQ #0,D1
  533. 0022181C 322A0006          MOVE.W 6(A2),D1
  534. 00221820 4EAEFF58          JSR -168(A6)
  535. 00221824 2240              MOVEA.L D0,A1
  536. 00221826 7000              MOVEQ #0,D0
  537. 00221828 302A0004          MOVE.W 4(A2),D0
  538. 0022182C 4EAEFFBE          JSR -66(A6)
  539. 00221830 224A              MOVEA.L A2,A1
  540. 00221832 203C00000008      MOVE.L #8,D0
  541. 00221838 4EAEFFBE          JSR -66(A6)
  542. 0022183C 0C43FFFF          CMPI.W #-1,D3
  543. 00221840 67000012          BEQ $221854
  544. 00221844 3003              MOVE.W D3,D0
  545. 00221846 223C00001001      MOVE.L #4097,D1
  546. 0022184C 4EAEFF58          JSR -168(A6)
  547. 00221850 2440              MOVEA.L D0,A2
  548. 00221852 60B8              BRA.S $22180C
  549. 00221854 4CDF040C          MOVEM.L (A7)+,D2-D3/A2
  550. 00221858 4E75              RTS
  551.  
  552.  
  553. -210
  554. 0022185A 48E70030          MOVEM.L A2-A3,-(A7)
  555. 0022185E 244F              MOVEA.L A7,A2
  556. 00221860 4FEFFFFC          LEA -4(A7),A7
  557. 00221864 48E7C000          MOVEM.L D0-D1,-(A7)
  558. 00221868 4EAEFF46          JSR -186(A6)
  559. 0022186C 2648              MOVEA.L A0,A3
  560. 0022186E 302B001A          MOVE.W 26(A3),D0
  561. 00221872 0C40FFFF          CMPI.W #-1,D0
  562. 00221876 66000008          BNE $221880
  563. 0022187A 7000              MOVEQ #0,D0
  564. 0022187C 6000000A          BRA $221888
  565. 00221880 323C1001          MOVE.W #4097,D1
  566. 00221884 4EAEFF58          JSR -168(A6)
  567. 00221888 2480              MOVE.L D0,(A2)
  568. 0022188A 204A              MOVEA.L A2,A0
  569. 0022188C 4CDF0003          MOVEM.L (A7)+,D0-D1
  570. 00221890 4EAEFF40          JSR -192(A6)
  571. 00221894 2F00              MOVE.L D0,-(A7)
  572. 00221896 2012              MOVE.L (A2),D0
  573. 00221898 6600000A          BNE $2218A4
  574. 0022189C 303CFFFF          MOVE.W #-1,D0
  575. 002218A0 60000006          BRA $2218A8
  576. 002218A4 4EAEFFAC          JSR -84(A6)
  577. 002218A8 3740001A          MOVE.W D0,26(A3)
  578. 002218AC 201F              MOVE.L (A7)+,D0
  579. 002218AE 2040              MOVEA.L D0,A0
  580. 002218B0 4FEF0004          LEA 4(A7),A7
  581. 002218B4 4CDF0C00          MOVEM.L (A7)+,A2-A3
  582. 002218B8 4E75              RTS
  583.  
  584. -216: (a1,d0)  SPEICHERFREIGABE
  585. 002218BA 48E73038          MOVEM.L D2-D3/A2-A4,-(A7)
  586. 002218BE 2449              MOVEA.L A1,A2
  587. 002218C0 4EAEFF46          JSR -186(A6)
  588. 002218C4 2648              MOVEA.L A0,A3
  589. 002218C6 200A              MOVE.L A2,D0
  590. 002218C8 67000014          BEQ $2218DE
  591. 002218CC 4EAEFFAC          JSR -84(A6)
  592. 002218D0 3400              MOVE.W D0,D2
  593. 002218D2 200A              MOVE.L A2,D0
  594. 002218D4 4EAEFFB2          JSR -78(A6)
  595. 002218D8 3600              MOVE.W D0,D3
  596. 002218DA 0243CFFF          ANDI.W #-12289,D3
  597. 002218DE 302B001A          MOVE.W 26(A3),D0
  598. 002218E2 287C00000000      MOVEA.L #0,A4
  599. 002218E8 0C40FFFF          CMPI.W #-1,D0
  600. 002218EC 67000082          BEQ $221970
  601. 002218F0 323C1001          MOVE.W #4097,D1
  602. 002218F4 4EAEFF58          JSR -168(A6)
  603. 002218F8 B5FC00000000      CMPA.L #0,A2
  604. 002218FE 67000018          BEQ $221918
  605. 00221902 B4680002          CMP.W 2(A0),D2
  606. 00221906 6600005E          BNE $221966
  607. 0022190A 30280006          MOVE.W 6(A0),D0
  608. 0022190E 0240CFFF          ANDI.W #-12289,D0
  609. 00221912 B640              CMP.W D0,D3
  610. 00221914 66000050          BNE $221966
  611. 00221918 B9FC00000000      CMPA.L #0,A4
  612. 0022191E 6600000C          BNE $22192C
  613. 00221922 37680000001A      MOVE.W 0(A0),26(A3)
  614. 00221928 60000008          BRA $221932
  615. 0022192C 396800000000      MOVE.W 0(A0),0(A4)
  616. 00221932 2F08              MOVE.L A0,-(A7)
  617. 00221934 30280002          MOVE.W 2(A0),D0
  618. 00221938 32280006          MOVE.W 6(A0),D1
  619. 0022193C 4EAEFF58          JSR -168(A6)
  620. 00221940 2240              MOVEA.L D0,A1
  621. 00221942 7000              MOVEQ #0,D0
  622. 00221944 2057              MOVEA.L (A7),A0
  623. 00221946 30280004          MOVE.W 4(A0),D0
  624. 0022194A 4EAEFFBE          JSR -66(A6)
  625. 0022194E 2257              MOVEA.L (A7),A1
  626. 00221950 203C00000008      MOVE.L #8,D0
  627. 00221956 4EAEFFBE          JSR -66(A6)
  628. 0022195A 205F              MOVEA.L (A7)+,A0
  629. 0022195C B5FC00000000      CMPA.L #0,A2
  630. 00221962 6600000C          BNE $221970
  631. 00221966 2848              MOVEA.L A0,A4
  632. 00221968 30280000          MOVE.W 0(A0),D0
  633. 0022196C 6000FF7A          BRA $2218E8
  634. 00221970 4CDF1C0C          MOVEM.L (A7)+,D2-D3/A2-A4
  635. 00221974 4E75              RTS
  636.  
  637.  
  638. 00221976 00002069          ORI.B #105,D0
  639. 0022197A 002E70001028      ORI.B #0,4136(A6)
  640. 00221980 1FF1              DC.W 8177 ;".ñ"
  641.  
  642.  
  643. CALLASERV
  644. 00221982 C029000F          AND.B 15(A1),D0
  645. 00221986 81290025          OR.B D0,37(A1)
  646. 0022198A 20290022          MOVE.L 34(A1),D0
  647. 0022198E C0A90026          AND.L 38(A1),D0
  648. 00221992 6602              BNE.S $221996
  649. 00221994 4E75              RTS
  650.  
  651. AMIGASERVER:
  652. 00221996 48E73026          MOVEM.L D2-D3/A2/A5-A6,-(A7)
  653. 0022199A 2C49              MOVEA.L A1,A6                 JanusBase in A6
  654. 0022199C 08000007          BTST #7,D0                    Ist Bit 7 ges.?
  655. 002219A0 67000040          BEQ $2219E2                   Ja, dann Sprung
  656. 002219A4 7400              MOVEQ #0,D2                   D2=0
  657. 002219A6 7000              MOVEQ #0,D0                   D0=0
  658. 002219A8 2A6E002A          MOVEA.L 42(A6),A5             A5=ParameterRAM
  659. 002219AC DBFC00020000      ADDA.L #131072,A5             neuer Typ
  660. 002219B2 342D001E          MOVE.W 30(A5),D2              d2=(PARAMR).Intrs
  661. 002219B6 9BFC00020000      SUBA.L #131072,A5             Neuer Typ
  662. 002219BC 4BF52840          LEA 64(A5,D2.L),A5            A5=64+Intr-Offset(PAR),A5
  663. 002219C0 76FF              MOVEQ #-1,D3                  D3=-1
  664. 002219C2 7217              MOVEQ #23,D1                  D1=23
  665. X001:
  666. 002219C4 C625              AND.B -(A5),D3                A5[x].Byte2 & -1 , --
  667. 002219C6 4AE5              TAS.B -(A5)                   TAS A5[x].Byte1  , --
  668. 002219C8 6B02              BMI.S $2219CC                 Wenn Byte1 negativ, Sprung
  669. 002219CA 03C0              BSET D1,D0                    Setze Bit23 in D0
  670. 002219CC 51C9FFF6          DBRA D1,$2219C4               ist D1>0 dann zu X001
  671. 002219D0 4AEDFFFE          TAS.B -2(A5)                  Test A5[x-1].Byte1
  672. 002219D4 6B06              BMI.S $2219DC                 Wenn negativ, dann Ende
  673. 002219D6 1D7C00FF000F      MOVE.B #-1,15(A6)             JanusLib.pad=-1
  674. 002219DC E188              LSL.L #8,D0                   D0=D0*16
  675. 002219DE 81AE0022          OR.L D0,34(A6)                Exclusive Or
  676.  
  677. 002219E2 242E0022          MOVE.L 34(A6),D2          D2=longset1
  678. 002219E6 C4AE0026          AND.L 38(A6),D2           D2=longset2 & longset1
  679. 002219EA B5AE0022          EOR.L D2,34(A6)           Exclusive Or
  680. 002219EE 2A6E0042          MOVEA.L 66(A6),A5         TablePtr nach A5
  681. 002219F2 205D              MOVEA.L (A5)+,A0          0(Table) nach A0
  682. 002219F4 08020000          BTST #0,D2                Bit 0 in lonsets
  683. 002219F8 670C              BEQ.S $221A06             Wenn ja, dann Sprung
  684. 002219FA 2008              MOVE.L A0,D0              Int nach D0
  685. 002219FC 6708              BEQ.S $221A06             Test        |
  686. 002219FE 4CE80600000E      MOVEM.L 14(A0),A1-A2      Argumente   |
  687. 00221A04 4E92              JSR (A2)                  «------------ Aufruf
  688. 00221A06 E28A              LSR.L #1,D2               D2=D2*2
  689. 00221A08 66E8              BNE.S $2219F2             Test
  690. 00221A0A 7001              MOVEQ #1,D0               D0=11
  691. 00221A0C 4CDF640C          MOVEM.L (A7)+,D2-D3/A2/A5-A6
  692. 00221A10 4E75              RTS
  693.  
  694. SetJanusHandler:
  695. 00221A12 2200              MOVE.L D0,D1
  696. 00221A14 E589              LSL.L #2,D1
  697. 00221A16 206E0042          MOVEA.L 66(A6),A0
  698. 00221A1A 41F01800          LEA 0(A0,D1.L),A0
  699. 00221A1E 2209              MOVE.L A1,D1
  700. 00221A20 22780004          MOVEA.L 4,A1
  701. 00221A24 33FC400000DFF09A  MOVE.W #16384,$DFF09A
  702. 00221A2C 52290126          ADDQ.B #1,294(A1)
  703. 00221A30 2010              MOVE.L (A0),D0
  704. 00221A32 2081              MOVE.L D1,(A0)
  705. 00221A34 22780004          MOVEA.L 4,A1
  706. 00221A38 53290126          SUBQ.B #1,294(A1)
  707. 00221A3C 6C08              BGE.S $221A46
  708. 00221A3E 33FCC00000DFF09A  MOVE.W #-16384,$DFF09A
  709. 00221A46 4E75              RTS
  710.  
  711.  
  712. SetJanusRequest:
  713. 00221A48 2F02              MOVE.L D2,-(A7)
  714. 00221A4A 20780004          MOVEA.L 4,A0
  715. 00221A4E 33FC400000DFF09A  MOVE.W #16384,$DFF09A
  716. 00221A56 52280126          ADDQ.B #1,294(A0)
  717. 00221A5A 242E0026          MOVE.L 38(A6),D2
  718. 00221A5E 4A81              TST.L D1
  719. 00221A60 6604              BNE.S $221A66
  720. 00221A62 0182              BCLR D0,D2
  721. 00221A64 6002              BRA.S $221A68
  722. 00221A66 01C2              BSET D0,D2
  723. 00221A68 56C0              SNE.B D0
  724. 00221A6A 7201              MOVEQ #1,D1
  725. 00221A6C C081              AND.L D1,D0
  726. 00221A6E 2202              MOVE.L D2,D1
  727. 00221A70 4201              CLR.B D1
  728. 00221A72 4A81              TST.L D1
  729. 00221A74 6706              BEQ.S $221A7C
  730. 00221A76 08C20007          BSET #7,D2
  731. 00221A7A 6004              BRA.S $221A80
  732. 00221A7C 08820007          BCLR #7,D2
  733. 00221A80 2D420026          MOVE.L D2,38(A6)
  734. 00221A84 206E002E          MOVEA.L 46(A6),A0
  735. 00221A88 4602              NOT.B D2
  736. 00221A8A 11421FF9          MOVE.B D2,8185(A0)
  737. 00221A8E 4602              NOT.B D2
  738. 00221A90 6708              BEQ.S $221A9A
  739. 00221A92 117C00FE1FFD      MOVE.B #-2,8189(A0)
  740. 00221A98 6006              BRA.S $221AA0
  741. 00221A9A 117C00FD1FFD      MOVE.B #-3,8189(A0)
  742. 00221AA0 22780004          MOVEA.L 4,A1
  743. 00221AA4 53290126          SUBQ.B #1,294(A1)
  744. 00221AA8 6C08              BGE.S $221AB2
  745. 00221AAA 33FCC00000DFF09A  MOVE.W #-16384,$DFF09A
  746. 00221AB2 241F              MOVE.L (A7)+,D2
  747. 00221AB4 4E75              RTS
  748.  
  749.  
  750. SetJanusEnable:
  751. 00221AB6 2F02              MOVE.L D2,-(A7)
  752. 00221AB8 20780004          MOVEA.L 4,A0
  753. 00221ABC 33FC400000DFF09A  MOVE.W #16384,$DFF09A
  754. 00221AC4 52280126          ADDQ.B #1,294(A0)
  755. 00221AC8 242E0022          MOVE.L 34(A6),D2
  756. 00221ACC 4A81              TST.L D1
  757. 00221ACE 6604              BNE.S $221AD4
  758. 00221AD0 0182              BCLR D0,D2
  759. 00221AD2 6002              BRA.S $221AD6
  760. 00221AD4 01C2              BSET D0,D2
  761. 00221AD6 56C0              SNE.B D0
  762. 00221AD8 7201              MOVEQ #1,D1
  763. 00221ADA C081              AND.L D1,D0
  764. 00221ADC 2D420022          MOVE.L D2,34(A6)
  765. 00221AE0 20780004          MOVEA.L 4,A0
  766. 00221AE4 53280126          SUBQ.B #1,294(A0)
  767. 00221AE8 6C08              BGE.S $221AF2
  768. 00221AEA 33FCC00000DFF09A  MOVE.W #-16384,$DFF09A
  769. 00221AF2 241F              MOVE.L (A7)+,D2
  770. 00221AF4 4E75              RTS
  771.  
  772.  
  773. SendJanusInt:
  774. 00221AF6 206E002A          MOVEA.L 42(A6),A0        ParameterRAM nach A0
  775. 00221AFA E348              LSL.W #1,D0              IntNum*=2
  776. 00221AFC D1FC00020000      ADDA.L #131072,A0        ParameterRAM in a. MemType
  777. 00221B02 D068001E          ADD.W 30(A0),D0          D0 += INTRS(ParamRAM)
  778. 00221B06 91FC00020000      SUBA.L #131072,A0        ParameterRAM in a. MemType
  779. 00221B0C 11BC007F0801      MOVE.B #127,1(A0,D0.L)   127 nach INTR[D0].Byte2
  780. 00221B12 206E002E          MOVEA.L 46(A6),A0        IOAccessRAM nach A0
  781. 00221B16 117C00FC1FFB      MOVE.B #-4,8187(A0)      Aufruf für PC
  782. 00221B1C 4E75              RTS
  783.  
  784.  
  785. CheckJanusInt:
  786. 00221B1E 206E002A          MOVEA.L 42(A6),A0        ParamRam in A0
  787. 00221B22 E348              LSL.W #1,D0              intNum*=2
  788. 00221B24 D1FC00020000      ADDA.L #131072,A0        neuer MemType
  789. 00221B2A D068001E          ADD.W 30(A0),D0          INTR-Offset zu D0
  790. 00221B2E 91FC00020000      SUBA.L #131072,A0        neuer MemType
  791. 00221B34 3200              MOVE.W D0,D1             Offset nach d1
  792. 00221B36 7000              MOVEQ #0,D0              d0=0
  793. 00221B38 10301001          MOVE.B 1(A0,D1.W),D0     INTR[D0].Byte2=D0
  794. 00221B3C 5AC0              SPL.B D0                 D0 Testen
  795.                                                     Scc: Setze d0 auf -1,
  796.                                                          wenn d0 Positiv
  797. 00221B3E 4E75              RTS
  798.  
  799.  
  800. GetParamOffset:
  801. 00221B40 206E002A          MOVEA.L 42(A6),A0
  802. 00221B44 D1FC00020000      ADDA.L #131072,A0        ; ParameterRam in A0
  803. 00221B4A E348              LSL.W #1,D0              ; D0*2
  804. 00221B4C D0680020          ADD.W 32(A0),D0          ; D0+=TabOffset
  805. 00221B50 2200              MOVE.L D0,D1             ; Offset auf Tabelle D1
  806. 00221B52 7000              MOVEQ #0,D0              ; D0=0
  807. 00221B54 30301800          MOVE.W 0(A0,D1.L),D0     ; 0(RAM,TabOffset)=D0
  808. 00221B58 4E75              RTS
  809.  
  810.  
  811. SetParamOffset:
  812. 00221B5A 206E002A          MOVEA.L 42(A6),A0
  813. 00221B5E D1FC00020000      ADDA.L #131072,A0
  814. 00221B64 E348              LSL.W #1,D0
  815. 00221B66 D0680020          ADD.W 32(A0),D0
  816. 00221B6A 22780004          MOVEA.L 4,A1
  817. 00221B6E 33FC400000DFF09A  MOVE.W #16384,$DFF09A
  818. 00221B76 52290126          ADDQ.B #1,294(A1)
  819. 00221B7A 3F300800          MOVE.W 0(A0,D0.L),-(A7)
  820. 00221B7E 31810800          MOVE.W D1,0(A0,D0.L)
  821. 00221B82 22780004          MOVEA.L 4,A1
  822. 00221B86 53290126          SUBQ.B #1,294(A1)
  823. 00221B8A 6C08              BGE.S $221B94
  824. 00221B8C 33FCC00000DFF09A  MOVE.W #-16384,$DFF09A
  825. 00221B94 301F              MOVE.W (A7)+,D0
  826. 00221B96 4E75              RTS
  827.  
  828.  
  829. GetJanusStart:
  830. 00221B98 202E0032          MOVE.L 50(A6),D0
  831. 00221B9C 2040              MOVEA.L D0,A0
  832. 00221B9E 4E75              RTS
  833.  
  834.  
  835. Data:
  836. 00221BA0 0000010C          ORI.B #12,D0
  837. 00221BA4 00221EA2          ORI.B #-94,-(A2)
  838. 00221BA8 00000000          ORI.B #0,D0
  839. 00221BAC 00221BB0          ORI.B #-80,-(A2)
  840.  
  841. SYSTEM INSTALL:
  842. 00221BB0 48E73C32          MOVEM.L D2-D5/A2-A3/A6,-(A7)
  843. 00221BB4 2440              MOVEA.L D0,A2             A2=JanusBase
  844. 00221BB6 2548003E          MOVE.L A0,62(A2)          SegList in 62
  845. 00221BBA 41FAF5F5          LEA $2211B1(PC),A0        Name in A0 <janus.library> ??
  846. 00221BBE 2548000A          MOVE.L A0,10(A2)          Janus.libNode.ln_Name=Name
  847. 00221BC2 25480050          MOVE.L A0,80(A2)          Int1Name
  848. 00221BC6 25480066          MOVE.L A0,102(A2)         Int2Name
  849. 00221BCA 254E0036          MOVE.L A6,54(A2)          ExecBase eintr.
  850. 00221BCE 43FA0490          LEA $222060(PC),A1        LibraryName <dos.library>
  851. 00221BD2 7000              MOVEQ #0,D0               Version 0
  852. 00221BD4 4EAEFDD8          JSR -552(A6)              OpenLibrary()
  853. 00221BD8 2540003A          MOVE.L D0,58(A2)          DosBase eintr.
  854. 00221BDC 6700027A          BEQ $221E58               Fehler?, dann Ende
  855. 00221BE0 43FA0454          LEA $222036(PC),A1        LibName <expansion.li
  856. 00221BE4 7000              MOVEQ #0,D0
  857. 00221BE6 4EAEFDD8          JSR -552(A6)              OpenLibrary
  858. 00221BEA 4A80              TST.L D0
  859. 00221BEC 67000262          BEQ $221E50               Fehler ?
  860. 00221BF0 2C40              MOVEA.L D0,A6             A6=ExpBase
  861. 00221BF2 4E55FFF0          LINK A5,#-16
  862. 00221BF6 204F              MOVEA.L A7,A0
  863. 00221BF8 4EAEFF76          JSR -138(A6)              GetCurrentBinding()
  864. 00221BFC 206F0000          MOVEA.L 0(A7),A0
  865. 00221C00 08A80001000E      BCLR #1,14(A0)
  866. 00221C06 214A002C          MOVE.L A2,44(A0)
  867. 00221C0A 24280020          MOVE.L 32(A0),D2
  868. 00221C0E 4E5D              UNLK A5
  869. 00221C10 224E              MOVEA.L A6,A1
  870. 00221C12 2C7900000004      MOVEA.L 4,A6
  871. 00221C18 4EAEFE62          JSR -414(A6)              CloseLibrary(Expansion)
  872. 00221C1C 6100039C          BSR $221FBA               SYSINIT_SUB1
  873. 00221C20 2042              MOVEA.L D2,A0             Zeiger auf DPM
  874. 00221C22 D1FC00018000      ADDA.L #98304,A0          DPM +98304
  875. 00221C28 2242              MOVEA.L D2,A1             DMP in A1
  876. 00221C2A D3FC0007E000      ADDA.L #516096,A1         DPM+516096
  877. 00221C30 137C00FF1FFD      MOVE.B #-1,8189(A1)       PC Funktionsaufrufe
  878. 00221C36 3F00              MOVE.W D0,-(A7)
  879. 00221C38 357C061F0072      MOVE.W #1567,114(A2)
  880. 00221C3E 137C007F1FF7      MOVE.B #127,8183(A1)
  881. 00221C44 10291FF7          MOVE.B 8183(A1),D0
  882. 00221C48 0200007F          ANDI.B #127,D0
  883. 00221C4C 0C00007F          CMPI.B #127,D0
  884. 00221C50 661A              BNE.S $221C6C
  885. 00221C52 137C00001FF7      MOVE.B #0,8183(A1)
  886. 00221C58 10291FF7          MOVE.B 8183(A1),D0
  887. 00221C5C 0200007F          ANDI.B #127,D0
  888. 00221C60 0C000000          CMPI.B #0,D0
  889. 00221C64 6606              BNE.S $221C6C
  890. 00221C66 357C1FFF0072      MOVE.W #8191,114(A2)
  891. 00221C6C 301F              MOVE.W (A7)+,D0
  892. 00221C6E 13401FF7          MOVE.B D0,8183(A1)
  893. 00221C72 10291FF7          MOVE.B 8183(A1),D0
  894. 00221C76 E718              ROL.B #3,D0
  895. 00221C78 02400003          ANDI.W #3,D0
  896. 00221C7C E340              ASL.W #1,D0
  897. 00221C7E 357B00060076      MOVE.W $221C86(PC,D0.W),118(A2)
  898. 00221C84 6008              BRA.S $221C8E
  899.  
  900. Daten:
  901. 00221C86 0000A000          ORI.B #0,D0      dc.w 0000,A000
  902. 00221C8A D000              ADD.B D0,D0      dc.w D000,E000
  903. 00221C8C E000              ASR.B #8,D0
  904.  
  905. 00221C8E 082900071FF7      BTST #7,8183(A1)
  906. 00221C94 66000012          BNE $221CA8
  907. 00221C98 0C6AD0000076      CMPI.W #-12288,118(A2)
  908. 00221C9E 66000008          BNE $221CA8
  909. 00221CA2 357CD4000076      MOVE.W #-11264,118(A2)
  910. 00221CA8 137C00F71FFD      MOVE.B #-9,8189(A1)
  911. 00221CAE 303C03E8          MOVE.W #1000,D0
  912. 00221CB2 117C00FF0000      MOVE.B #-1,0(A0)
  913. 00221CB8 51C8FFF8          DBRA D0,$221CB2
  914. 00221CBC 117C00FF0000      MOVE.B #-1,0(A0)
  915. 00221CC2 203C000F4240      MOVE.L #$F4240,D0
  916. 00221CC8 4AE80000          TAS.B 0(A0)
  917. 00221CCC 6712              BEQ.S $221CE0
  918. 00221CCE 117C00FF0001      MOVE.B #-1,1(A0)
  919. 00221CD4 4A291FF5          TST.B 8181(A1)
  920. 00221CD8 5380              SUBQ.L #1,D0
  921. 00221CDA 6F000174          BLE $221E50
  922. 00221CDE 60E8              BRA.S $221CC8
  923. 00221CE0 25420032          MOVE.L D2,50(A2)
  924. 00221CE4 6700016A          BEQ $221E50
  925. 00221CE8 2642              MOVEA.L D2,A3              DualPortedMem in A3
  926. 00221CEA D7FC00018000      ADDA.L #98304,A3           A3+...
  927. 00221CF0 254B002A          MOVE.L A3,42(A2)           Zeiger auf PRAM eint.
  928. 00221CF4 2042              MOVEA.L D2,A0
  929. 00221CF6 D1FC0007E000      ADDA.L #516096,A0
  930. 00221CFC 2548002E          MOVE.L A0,46(A2)           Zeiger Auf IOAcc. eintr.
  931. 00221D00 41EA008C          LEA 140(A2),A0
  932. 00221D04 25480042          MOVE.L A0,66(A2)           TablePtr=124(JanusBase)
  933. 00221D08 7200              MOVEQ #0,D1
  934. 00221D0A 4293              CLR.L (A3)
  935. 00221D0C 4A93              TST.L (A3)
  936. 00221D0E 66FA              BNE.S $221D0A
  937. 00221D10 204B              MOVEA.L A3,A0
  938. 00221D12 303C0FFF          MOVE.W #4095,D0
  939. 00221D16 20C1              MOVE.L D1,(A0)+
  940. 00221D18 51C8FFFC          DBRA D0,$221D16
  941. 00221D1C 206A0032          MOVEA.L 50(A2),A0
  942. 00221D20 303C3FFF          MOVE.W #16383,D0
  943. 00221D24 20C1              MOVE.L D1,(A0)+
  944. 00221D26 51C8FFFC          DBRA D0,$221D24
  945. 00221D2A D7FC00020000      ADDA.L #131072,A3         PRAM Memtype ändern
  946. 00221D30 377C0042001E      MOVE.W #66,30(A3)         HandShakeMem.Intrs=66
  947. 00221D36 377C00820020      MOVE.W #130,32(A3)        HandShakeMem.Addre=130
  948. 00221D3C 377C00200022      MOVE.W #32,34(A3)         HandShakeMem.count32
  949. 00221D42 302B0024          MOVE.W 36(A3),D0          HSM.Semas
  950. 00221D46 08C00001          BSET #1,D0
  951. 00221D4A 37400024          MOVE.W D0,36(A3)          HSM.Semas[0].Word+=BIT1
  952. 00221D4E 72FF              MOVEQ #-1,D1
  953. 00221D50 303C001F          MOVE.W #31,D0
  954. 00221D54 41EB0042          LEA 66(A3),A0
  955. 00221D58 20C1              MOVE.L D1,(A0)+
  956. 00221D5A 51C8FFFC          DBRA D0,$221D58
  957. 00221D5E 377C0021002A      MOVE.W #33,42(A3)         Library Version
  958. 00221D64 377C00010028      MOVE.W #1,40(A3)          Revision
  959. 00221D6A 2C4A              MOVEA.L A2,A6
  960. 00221D6C 610001D4          BSR $221F42
  961. 00221D70 206A0032          MOVEA.L 50(A2),A0
  962. 00221D74 43EB0010          LEA 16(A3),A1
  963. 00221D78 323CFFFF          MOVE.W #-1,D1
  964. 00221D7C 610000EC          BSR $221E6A
  965. 00221D80 41EB0010          LEA 16(A3),A0
  966. 00221D84 316A00760006      MOVE.W 118(A2),6(A0)    AmigaBase (D000) in datList.Amiga
  967. 00221D8A 48E700F8          MOVEM.L A0-A4,-(A7)
  968. 00221D8E 206A002E          MOVEA.L 46(A2),A0       A0=IOAccess
  969. 00221D92 266A0032          MOVEA.L 50(A2),A3       A3=DualPortedMem
  970. 00221D96 D7FC00018000      ADDA.L #98304,A3        DualPortedMem+...
  971. 00221D9C D7FC00020000      ADDA.L #131072,A3       Neuer MemType
  972. 00221DA2 49EB0002          LEA 2(A3),A4
  973. 00221DA6 082800071FF7      BTST #7,8183(A0)
  974. 00221DAC 6608              BNE.S $221DB6
  975. 00221DAE 397CD0000006      MOVE.W #-12288,6(A4)
  976. 00221DB4 6006              BRA.S $221DBC
  977. 00221DB6 397CF0000006      MOVE.W #-4096,6(A4)
  978. 00221DBC 4CDF1F00          MOVEM.L (A7)+,A0-A4
  979. 00221DC0 204B              MOVEA.L A3,A0
  980. 00221DC2 91FC00020000      SUBA.L #131072,A0
  981. 00221DC8 43EB0002          LEA 2(A3),A1
  982. 00221DCC 303C00C2          MOVE.W #194,D0
  983. 00221DD0 323C3FFF          MOVE.W #16383,D1
  984. 00221DD4 61000094          BSR $221E6A
  985. 00221DD8 157C00BF000F      MOVE.B #-65,15(A2)
  986. 00221DDE 43EA0046          LEA 70(A2),A1           JanusBase.inta1 nach A1
  987. 00221DE2 234A000E          MOVE.L A2,14(A1)        JanusBase nach Int.Data
  988.                                                    AmigaServer
  989. 00221DE6 237C002219780012  MOVE.L #$221978,18(A1)  $221978 nach Int.Code
  990. 00221DEE 137C000A0009      MOVE.B #10,9(A1)        10 nach Int.Node.Pri
  991. 00221DF4 7003              MOVEQ #3,D0             IntNum
  992. 00221DF6 2C6A0036          MOVEA.L 54(A2),A6       ExecBase
  993. 00221DFA 4EAEFF58          JSR -168(A6)            AddIntVector(3,inta1)
  994. 00221DFE 43EA005C          LEA 92(A2),A1           JBase.inta2 nach A1
  995. 00221E02 234A000E          MOVE.L A2,14(A1)        JBase nach inta2.Data
  996. 00221E06 237C002220A00012  MOVE.L #$2220A0,18(A1)  int.Code
  997. 00221E0E 700A              MOVEQ #10,D0            JanusIntNum (PCReadAmiga)
  998. 00221E10 C54E              EXG.L A2,A6             A6 mit A2 Vertauschen
  999. 00221E12 4EAEFFE2          JSR -30(A6)             SetJanusHandler(10,inta2)
  1000. 00221E16 700A              MOVEQ #10,D0
  1001. 00221E18 7201              MOVEQ #1,D1
  1002. 00221E1A 4EAEFFDC          JSR -36(A6)             SetJanusRequest(10,1)
  1003. 00221E1E C54E              EXG.L A2,A6             A6 mit A2 vertauschen
  1004. 00221E20 206A002E          MOVEA.L 46(A2),A0       A0 = IOAccess
  1005. 00221E24 97FC00020000      SUBA.L #131072,A3       A3 = DualPortedMem
  1006. 00221E2A 177C00000001      MOVE.B #0,1(A3)
  1007. 00221E30 177C007F0000      MOVE.B #127,0(A3)       HSK.x1=127
  1008. 00221E36 117C00FE1FFD      MOVE.B #-2,8189(A0)     PC-Aufruf
  1009. 00221E3C 4EB90022226C      JSR $22226C             SYSTEM_INSTALL_SUB2
  1010. 00221E42 200A              MOVE.L A2,D0
  1011. 00221E44 4CDF4C3C          MOVEM.L (A7)+,D2-D5/A2-A3/A6
  1012. 00221E48 4E75              RTS
  1013.  
  1014.  
  1015. 00221E4A 2204              MOVE.L D4,D1
  1016. 00221E4C 4EAEFFDC          JSR -36(A6)
  1017. 00221E50 226A003A          MOVEA.L 58(A2),A1
  1018. 00221E54 4EAEFE62          JSR -414(A6)
  1019. 00221E58 224A              MOVEA.L A2,A1
  1020. 00221E5A 7000              MOVEQ #0,D0
  1021. 00221E5C 302A0010          MOVE.W 16(A2),D0
  1022. 00221E60 92C0              SUBA.W D0,A1
  1023. 00221E62 D06A0012          ADD.W 18(A2),D0
  1024. 00221E66 7000              MOVEQ #0,D0
  1025. 00221E68 60DA              BRA.S $221E44
  1026. 00221E6A 2F02              MOVE.L D2,-(A7)
  1027. 00221E6C 23480002          MOVE.L A0,2(A1)
  1028. 00221E70 5640              ADDQ.W #3,D0
  1029. 00221E72 0240FFFC          ANDI.W #-4,D0
  1030. 00221E76 33400008          MOVE.W D0,8(A1)
  1031. 00221E7A 3341000A          MOVE.W D1,10(A1)
  1032. 00221E7E 3401              MOVE.W D1,D2
  1033. 00221E80 9440              SUB.W D0,D2
  1034. 00221E82 3342000C          MOVE.W D2,12(A1)
  1035. 00221E86 7200              MOVEQ #0,D1
  1036. 00221E88 3200              MOVE.W D0,D1
  1037. 00221E8A 2F08              MOVE.L A0,-(A7)
  1038. 00221E8C D1FC00020000      ADDA.L #131072,A0
  1039. 00221E92 31BCFFFF1800      MOVE.W #-1,0(A0,D1.L)
  1040. 00221E98 31821802          MOVE.W D2,2(A0,D1.L)
  1041. 00221E9C 205F              MOVEA.L (A7)+,A0
  1042. 00221E9E 241F              MOVE.L (A7)+,D2
  1043. 00221EA0 4E75              RTS
  1044.  
  1045. FuncTable:
  1046. 00221EA2 0022206C          ORI.B #108,-(A2)
  1047. 00221EA6 0022207A          ORI.B #122,-(A2)
  1048. 00221EAA 00222092          ORI.B #-110,-(A2)
  1049. 00221EAE 0022209C          ORI.B #-100,-(A2)
  1050. 00221EB2 00221A12          ORI.B #18,-(A2)
  1051. 00221EB6 00221A48          ORI.B #72,-(A2)
  1052. 00221EBA 00221AB6          ORI.B #-74,-(A2)
  1053. 00221EBE 00221AF6          ORI.B #-10,-(A2)
  1054. 00221EC2 00221B1E          ORI.B #30,-(A2)
  1055. 00221EC6 002211DC          ORI.B #-36,-(A2)
  1056. 00221ECA 002212BC          ORI.B #-68,-(A2)
  1057. 00221ECE 0022166C          ORI.B #108,-(A2)
  1058. 00221ED2 00221608          ORI.B #8,-(A2)
  1059. 00221ED6 002216C0          ORI.B #-64,-(A2)
  1060. 00221EDA 00221B40          ORI.B #64,-(A2)
  1061. 00221EDE 00221B5A          ORI.B #90,-(A2)
  1062. 00221EE2 00221B98          ORI.B #-104,-(A2)
  1063. 00221EE6 00221460          ORI.B #96,-(A2)
  1064. 00221EEA 002215BA          ORI.B #-70,-(A2)
  1065. 00221EEE 002216EC          ORI.B #-20,-(A2)
  1066. 00221EF2 00221702          ORI.B #2,-(A2)
  1067. 00221EF6 0022215C          ORI.B #92,-(A2)
  1068. 00221EFA 00222B60          ORI.B #96,-(A2)
  1069. 00221EFE 00222E74          ORI.B #116,-(A2)
  1070. 00221F02 00223274          ORI.B #116,-(A2)
  1071. 00221F06 0022331E          ORI.B #30,-(A2)
  1072. 00221F0A 002233E6          ORI.B #-26,-(A2)
  1073. 00221F0E 00223520          ORI.B #32,-(A2)
  1074. 00221F12 00223554          ORI.B #84,-(A2)
  1075. 00221F16 0022358A          ORI.B #-118,-(A2)
  1076. 00221F1A 00223596          ORI.B #-106,-(A2)
  1077. 00221F1E 00221708          ORI.B #8,-(A2)
  1078. 00221F22 002217F4          ORI.B #-12,-(A2)
  1079. 00221F26 002217AC          ORI.B #-84,-(A2)
  1080. 00221F2A 0022185A          ORI.B #90,-(A2)
  1081. 00221F2E 002218BA          ORI.B #-70,-(A2)
  1082. 00221F32 002216F8          ORI.B #-8,-(A2)
  1083. 00221F36 002235A4          ORI.B #-92,-(A2)
  1084. 00221F3A 002235D6          ORI.B #-42,-(A2)
  1085. 00221F3E FFFF              DC.W 65535 ;"ÿÿ"
  1086. 00221F40 FFFF              DC.W 65535 ;"ÿÿ"
  1087.  
  1088. 00221F42 48E73C22          MOVEM.L D2-D5/A2/A6,-(A7)
  1089. 00221F46 4285              CLR.L D5
  1090. 00221F48 244E              MOVEA.L A6,A2
  1091. 00221F4A 41FA00BE          LEA $22200A(PC),A0
  1092. 00221F4E 2208              MOVE.L A0,D1
  1093. 00221F50 426E0074          CLR.W 116(A6)
  1094. 00221F54 206A002E          MOVEA.L 46(A2),A0
  1095. 00221F58 082800071FF7      BTST #7,8183(A0)
  1096. 00221F5E 661A              BNE.S $221F7A
  1097. 00221F60 3D7C00010074      MOVE.W #1,116(A6)
  1098. 00221F66 41FA00B8          LEA $222020(PC),A0
  1099. 00221F6A 2208              MOVE.L A0,D1
  1100. 00221F6C 0C6ED4000076      CMPI.W #-11264,118(A6)
  1101. 00221F72 6606              BNE.S $221F7A
  1102. 00221F74 2A3C00004000      MOVE.L #16384,D5
  1103. 00221F7A 243C000003ED      MOVE.L #1005,D2
  1104. 00221F80 2C6A003A          MOVEA.L 58(A2),A6
  1105. 00221F84 4EAEFFE2          JSR -30(A6)
  1106. 00221F88 2800              MOVE.L D0,D4
  1107. 00221F8A 6726              BEQ.S $221FB2
  1108. 00221F8C 2204              MOVE.L D4,D1
  1109. 00221F8E 242A0032          MOVE.L 50(A2),D2
  1110. 00221F92 4A85              TST.L D5
  1111. 00221F94 6706              BEQ.S $221F9C
  1112. 00221F96 068200004000      ADDI.L #16384,D2
  1113. 00221F9C 263C000186A0      MOVE.L #100000,D3
  1114. 00221FA2 4EAEFFD6          JSR -42(A6)
  1115. 00221FA6 4A80              TST.L D0
  1116. 00221FA8 6B02              BMI.S $221FAC
  1117. 00221FAA DA80              ADD.L D0,D5
  1118. 00221FAC 2204              MOVE.L D4,D1
  1119. 00221FAE 4EAEFFDC          JSR -36(A6)
  1120. 00221FB2 2005              MOVE.L D5,D0
  1121. 00221FB4 4CDF443C          MOVEM.L (A7)+,D2-D5/A2/A6
  1122. 00221FB8 4E75              RTS
  1123.  
  1124.  
  1125. SYSINIT_SUB1
  1126. 00221FBA 48E778C2          MOVEM.L D1-D4/A0-A1/A6,-(A7)
  1127. 00221FBE 3F3CFE00          MOVE.W #-512,-(A7)
  1128. 00221FC2 206A002E          MOVEA.L 46(A2),A0
  1129. 00221FC6 082800071FF7      BTST #7,8183(A0)       PC Aufruf
  1130. 00221FCC 6604              BNE.S $221FD2
  1131. 00221FCE 3EBCDE00          MOVE.W #-8704,(A7)
  1132. 00221FD2 2C6A003A          MOVEA.L 58(A2),A6      DosBase
  1133. 00221FD6 41FA0070          LEA $222048(PC),A0     Name
  1134. 00221FDA 2208              MOVE.L A0,D1             nach D1
  1135. 00221FDC 243C000003ED      MOVE.L #1005,D2        MODE_OLDFILE
  1136. 00221FE2 4EAEFFE2          JSR -30(A6)            Open("PC:SYSTEM/2500PREFS")
  1137. 00221FE6 2800              MOVE.L D0,D4
  1138. 00221FE8 6710              BEQ.S $221FFA
  1139. 00221FEA 240F              MOVE.L A7,D2           -8704 nach D2
  1140. 00221FEC 7601              MOVEQ #1,D3
  1141. 00221FEE 2204              MOVE.L D4,D1
  1142. 00221FF0 4EAEFFD6          JSR -42(A6)            Read(fh,-8704,1)
  1143. 00221FF4 2204              MOVE.L D4,D1
  1144. 00221FF6 4EAEFFDC          JSR -36(A6)            Close()
  1145. 00221FFA 4280              CLR.L D0
  1146. 00221FFC 1017              MOVE.B (A7),D0
  1147. 00221FFE 2F00              MOVE.L D0,-(A7)
  1148. 00222000 588F              ADDQ.L #4,A7
  1149. 00222002 548F              ADDQ.L #2,A7
  1150. 00222004 4CDF431E          MOVEM.L (A7)+,D1-D4/A0-A1/A6
  1151. 00222008 4E75              RTS
  1152.  
  1153.  
  1154. 0022200A 7379              DC.W 29561 ;"sy"
  1155. 0022200C 733A              DC.W 29498 ;"s:"
  1156. 0022200E 7063              MOVEQ #99,D0
  1157. 00222010 2F73              DC.W 12147 ;"/s"
  1158. 00222012 7973              DC.W 31091 ;"ys"
  1159. 00222014 7465              MOVEQ #101,D2
  1160. 00222016 6D2F              BLT.S $222047
  1161. 00222018 7063              MOVEQ #99,D0
  1162. 0022201A 2E62              MOVEA.L -(A2),A7
  1163. 0022201C 6F6F              BLE.S $22208D
  1164. 0022201E 7400              MOVEQ #0,D2
  1165. 00222020 7379              DC.W 29561 ;"sy"
  1166. 00222022 733A              DC.W 29498 ;"s:"
  1167. 00222024 7063              MOVEQ #99,D0
  1168. 00222026 2F73              DC.W 12147 ;"/s"
  1169. 00222028 7973              DC.W 31091 ;"ys"
  1170. 0022202A 7465              MOVEQ #101,D2
  1171. 0022202C 6D2F              BLT.S $22205D
  1172. 0022202E 7063              MOVEQ #99,D0
  1173. 00222030 2E62              MOVEA.L -(A2),A7
  1174. 00222032 6F6F              BLE.S $2220A3
  1175. 00222034 7400              MOVEQ #0,D2
  1176. 00222036 6578              BCS.S $2220B0
  1177. 00222038 7061              MOVEQ #97,D0
  1178. 0022203A 6E73              BGT.S $2220AF
  1179. 0022203C 696F              BVS.S $2220AD
  1180. 0022203E 6E2E              BGT.S $22206E
  1181. 00222040 6C69              BGE.S $2220AB
  1182. 00222042 6272              BHI.S $2220B6
  1183. 00222044 6172              BSR.S $2220B8
  1184. 00222046 7900              DC.W 30976 ;"y."
  1185. 00222048 7379              DC.W 29561 ;"sy"
  1186. 0022204A 733A              DC.W 29498 ;"s:"
  1187. 0022204C 7063              MOVEQ #99,D0
  1188. 0022204E 2F73              DC.W 12147 ;"/s"
  1189. 00222050 7973              DC.W 31091 ;"ys"
  1190. 00222052 7465              MOVEQ #101,D2
  1191. 00222054 6D2F              BLT.S $222085
  1192. 00222056 32353030          MOVE.W 48(A5,D3.W),D1
  1193. 0022205A 7072              MOVEQ #114,D0
  1194. 0022205C 6566              BCS.S $2220C4
  1195. 0022205E 7300              DC.W 29440 ;"s."
  1196. 00222060 646F              BCC.S $2220D1
  1197. 00222062 732E              DC.W 29486 ;"s."
  1198. 00222064 6C69              BGE.S $2220CF
  1199. 00222066 6272              BHI.S $2220DA
  1200. 00222068 6172              BSR.S $2220DC
  1201. 0022206A 7900              DC.W 30976 ;"y."
  1202.  
  1203.  
  1204. InitLibrary(): -6
  1205. 0022206C 52680020          ADDQ.W #1,32(A0)
  1206. 00222070 08A80003000E      BCLR #3,14(A0)
  1207. 00222076 2008              MOVE.L A0,D0
  1208. 00222078 4E75              RTS
  1209.  
  1210. OpenLibrary(): -12
  1211. 0022207A 536E0020          SUBQ.W #1,32(A6)
  1212. 0022207E 660E              BNE.S $22208E
  1213. 00222080 082E0003000E      BTST #3,14(A6)
  1214. 00222086 6706              BEQ.S $22208E
  1215. 00222088 61000008          BSR $222092
  1216. 0022208C 6002              BRA.S $222090
  1217. 0022208E 7000              MOVEQ #0,D0
  1218. 00222090 4E75              RTS
  1219.  
  1220. CloseLibrary(): -18
  1221. 00222092 08EE0003000E      BSET #3,14(A6)
  1222. 00222098 7000              MOVEQ #0,D0
  1223. 0022209A 4E75              RTS
  1224.  
  1225. ExtFuncLib(): -24
  1226. 0022209C 7000              MOVEQ #0,D0
  1227. 0022209E 4E75              RTS
  1228.  
  1229. PCReadAmigaInterrupt:
  1230. 002220A0 48E70032          MOVEM.L A2-A3/A6,-(A7)
  1231. 002220A4 2C49              MOVEA.L A1,A6
  1232. 002220A6 700A              MOVEQ #10,D0
  1233. 002220A8 4EAEFFA6          JSR -90(A6)
  1234. 002220AC 08000000          BTST #0,D0
  1235. 002220B0 6726              BEQ.S $2220D8
  1236. 002220B2 48E70106          MOVEM.L D7/A5-A6,-(A7)
  1237. 002220B6 2E3C7FFFFFFA      MOVE.L #$7FFFFFFA,D7
  1238. 002220BC 2C780004          MOVEA.L 4,A6
  1239. 002220C0 4EAEFF94          JSR -108(A6)
  1240. 002220C4 4CDF6080          MOVEM.L (A7)+,D7/A5-A6
  1241. 002220C8 2F0E              MOVE.L A6,-(A7)
  1242. 002220CA 2C6E0036          MOVEA.L 54(A6),A6
  1243. 002220CE 4EAEFF8E          JSR -114(A6)
  1244. 002220D2 2C5F              MOVEA.L (A7)+,A6
  1245. 002220D4 6000004E          BRA $222124
  1246. 002220D8 2440              MOVEA.L D0,A2
  1247. 002220DA D5EE002A          ADDA.L 42(A6),A2
  1248. 002220DE D5FC00020000      ADDA.L #131072,A2
  1249. 002220E4 357CFFFF000A      MOVE.W #-1,10(A2)
  1250. 002220EA 203C00000002      MOVE.L #2,D0
  1251. 002220F0 4EAEFFB8          JSR -72(A6)
  1252. 002220F4 2040              MOVEA.L D0,A0
  1253. 002220F6 7000              MOVEQ #0,D0
  1254. 002220F8 302A0008          MOVE.W 8(A2),D0
  1255. 002220FC D1C0              ADDA.L D0,A0
  1256. 002220FE 226A0004          MOVEA.L 4(A2),A1
  1257. 00222102 302A0002          MOVE.W 2(A2),D0
  1258. 00222106 322A0000          MOVE.W 0(A2),D1
  1259. 0022210A 0C410006          CMPI.W #6,D1
  1260. 0022210E 641A              BCC.S $22212A
  1261. 00222110 D241              ADD.W D1,D1
  1262. 00222112 323B101A          MOVE.W $22212E(PC,D1.W),D1
  1263. 00222116 4EBB1016          JSR $22212E(PC,D1.W)
  1264. 0022211A 3540000A          MOVE.W D0,10(A2)
  1265. 0022211E 700A              MOVEQ #10,D0
  1266. 00222120 4EAEFFD0          JSR -48(A6)
  1267. 00222124 4CDF4C00          MOVEM.L (A7)+,A2-A3/A6
  1268. 00222128 4E75              RTS
  1269.  
  1270.  
  1271. 0022212A 6112              BSR.S $22213E
  1272. 0022212C 60EC              BRA.S $22211A
  1273. 0022212E 000C              DC.W 12 ;".."
  1274. 00222130 00140016          ORI.B #22,(A4)
  1275. 00222134 00100010          ORI.B #16,(A0)
  1276. 00222138 001C7000          ORI.B #0,(A4)+
  1277. 0022213C 4E75              RTS
  1278.  
  1279. 0022213E 7002              MOVEQ #2,D0
  1280. 00222140 4E75              RTS
  1281.  
  1282. 00222142 C149              EXG.L A0,A1
  1283. 00222144 6116              BSR.S $22215C
  1284. 00222146 7000              MOVEQ #0,D0
  1285. 00222148 4E75              RTS
  1286.  
  1287. 0022214A 48E780C0          MOVEM.L D0/A0-A1,-(A7)
  1288. 0022214E C149              EXG.L A0,A1
  1289. 00222150 610A              BSR.S $22215C
  1290. 00222152 4CDF0301          MOVEM.L (A7)+,D0/A0-A1
  1291. 00222156 6104              BSR.S $22215C
  1292. 00222158 7000              MOVEQ #0,D0
  1293. 0022215A 4E75              RTS
  1294.  
  1295.  
  1296. JBCopy():
  1297. 0022215C 0C8000000008      CMPI.L #8,D0
  1298. 00222162 6534              BCS.S $222198
  1299. 00222164 2208              MOVE.L A0,D1
  1300. 00222166 08010000          BTST #0,D1
  1301. 0022216A 6704              BEQ.S $222170
  1302. 0022216C 12D8              MOVE.B (A0)+,(A1)+
  1303. 0022216E 5380              SUBQ.L #1,D0
  1304. 00222170 2209              MOVE.L A1,D1
  1305. 00222172 08010000          BTST #0,D1
  1306. 00222176 6620              BNE.S $222198
  1307. 00222178 2200              MOVE.L D0,D1
  1308. 0022217A 020100FC          ANDI.B #-4,D1
  1309. 0022217E 9081              SUB.L D1,D0
  1310. 00222180 E489              LSR.L #2,D1
  1311. 00222182 4840              SWAP D0
  1312. 00222184 3001              MOVE.W D1,D0
  1313. 00222186 4841              SWAP D1
  1314. 00222188 6002              BRA.S $22218C
  1315. 0022218A 22D8              MOVE.L (A0)+,(A1)+
  1316. 0022218C 51C8FFFC          DBRA D0,$22218A
  1317. 00222190 51C9FFF8          DBRA D1,$22218A
  1318. 00222194 4240              CLR.W D0
  1319. 00222196 4840              SWAP D0
  1320. 00222198 4A80              TST.L D0
  1321. 0022219A 6710              BEQ.S $2221AC
  1322. 0022219C 3200              MOVE.W D0,D1
  1323. 0022219E 4840              SWAP D0
  1324. 002221A0 6002              BRA.S $2221A4
  1325. 002221A2 12D8              MOVE.B (A0)+,(A1)+
  1326. 002221A4 51C9FFFC          DBRA D1,$2221A2
  1327. 002221A8 51C8FFF8          DBRA D0,$2221A2
  1328. 002221AC 4E75              RTS
  1329.  
  1330.  
  1331. 002221AE 000048E7          ORI.B #-25,D0
  1332.  
  1333. ZST_SUB#1:
  1334.   => D1=Offset
  1335.  
  1336. 002221B2 3C02              MOVE.W D2,D6
  1337. 002221B4 2C6E003A          MOVEA.L 58(A6),A6     A6=DosBase
  1338. 002221B8 7800              MOVEQ #0,D4           D4=0
  1339. 002221BA 2A04              MOVE.L D4,D5          D5=0
  1340. 002221BC 41FA0056          LEA $222214(PC),A0    A0=Daten(1)("SYS:SYSTEM/PC.BOOT")
  1341. 002221C0 2208              MOVE.L A0,D1          D1=Daten(1)
  1342. 002221C2 243CFFFFFFFE      MOVE.L #-2,D2         D2=-2
  1343. 002221C8 4EAEFFAC          JSR -84(A6)           JanusMemToOffset
  1344. 002221CC 2A00              MOVE.L D0,D5          D5=Offset Daten(1)
  1345. 002221CE 67000032          BEQ $222202
  1346. 002221D2 41FA005A          LEA $22222E(PC),A0    A0=Daten(2)("SYS:SYSTEM/PC.BOOT")
  1347. 002221D6 2208              MOVE.L A0,D1          D1=Daten(2)
  1348. 002221D8 243C000003EE      MOVE.L #1006,D2
  1349. 002221DE 4EAEFFE2          JSR -30(A6)           Open(Daten(2),MODE_OLDFILE)
  1350. 002221E2 4A80              TST.L D0
  1351. 002221E4 6700001C          BEQ $222202
  1352. 002221E8 41FA004A          LEA $222234(PC),A0    A0="AUTOLOAD >NIL: <NIL:"
  1353. 002221EC 2208              MOVE.L A0,D1          D1=A0
  1354. 002221EE 2400              MOVE.L D0,D2          D2=FH
  1355. 002221F0 2600              MOVE.L D0,D3          D3=FH
  1356. 002221F2 4EAEFF22          JSR -222(A6)          Execute()
  1357. 002221F6 4A80              TST.L D0
  1358. 002221F8 67000008          BEQ $222202
  1359. 002221FC 283C00000001      MOVE.L #1,D4          D4=1
  1360. 00222202 2205              MOVE.L D5,D1          D1="AUTO...
  1361. 00222204 67000006          BEQ $22220C
  1362. 00222208 4EAEFFA6          JSR -90(A6)           UnLock()
  1363. 0022220C 2004              MOVE.L D4,D0          D0=1
  1364. 0022220E 4CDF403C          MOVEM.L (A7)+,D2-D5/A6
  1365. 00222212 4E75              RTS
  1366.  
  1367. Daten:
  1368. 00222214 7379              DC.W 29561 ;"sy"
  1369. 00222216 733A              DC.W 29498 ;"s:"
  1370. 00222218 7063              MOVEQ #99,D0
  1371. 0022221A 2F73              DC.W 12147 ;"/s"
  1372. 0022221C 6572              BCS.S $222290
  1373. 0022221E 7669              MOVEQ #105,D3
  1374. 00222220 6365              BLS.S $222287
  1375. 00222222 732F              DC.W 29487 ;"s/"
  1376. 00222224 6175              BSR.S $22229B
  1377. 00222226 746F              MOVEQ #111,D2
  1378. 00222228 6C6F              BGE.S $222299
  1379. 0022222A 6164              BSR.S $222290
  1380. 0022222C 00004E49          ORI.B #73,D0
  1381. 00222230 4C3A              DC.W 19514 ;"L:"
  1382. 00222232 00007275          ORI.B #117,D0
  1383. 00222236 6E20              BGT.S $222258
  1384. 00222238 3E4E              MOVEA.W A6,A7
  1385. 0022223A 494C              DC.W 18764 ;"IL"
  1386. 0022223C 3A20              MOVE.W -(A0),D5
  1387. 0022223E 3C4E              MOVEA.W A6,A6
  1388. 00222240 494C              DC.W 18764 ;"IL"
  1389. 00222242 3A20              MOVE.W -(A0),D5
  1390. 00222244 7379              DC.W 29561 ;"sy"
  1391. 00222246 733A              DC.W 29498 ;"s:"
  1392. 00222248 7063              MOVEQ #99,D0
  1393. 0022224A 2F73              DC.W 12147 ;"/s"
  1394. 0022224C 6572              BCS.S $2222C0
  1395. 0022224E 7669              MOVEQ #105,D3
  1396. 00222250 6365              BLS.S $2222B7
  1397. 00222252 732F              DC.W 29487 ;"s/"
  1398. 00222254 6175              BSR.S $2222CB
  1399. 00222256 746F              MOVEQ #111,D2
  1400. 00222258 6C6F              BGE.S $2222C9
  1401. 0022225A 6164              BSR.S $2222C0
  1402. 0022225C 203E              MOVE.L SR,D0
  1403. 0022225E 4E49              TRAP #9
  1404. 00222260 4C3A              DC.W 19514 ;"L:"
  1405. 00222262 203C4E494C3A      MOVE.L #$4E494C3A,D0
  1406. 00222268 00000000          ORI.B #0,D0
  1407.  
  1408. SYSTEM_INSTALL_SUB2
  1409. 0022226C 48E73F3E          MOVEM.L D2-D7/A2-A6,-(A7)
  1410. 00222270 2C6A0036          MOVEA.L 54(A2),A6          ExecBase nach A6
  1411. 00222274 203C00000052      MOVE.L #82,D0
  1412. 0022227A 223C00010000      MOVE.L #65536,D1
  1413. 00222280 4EAEFF3A          JSR -198(A6)               AllocMem(82,MEMTYPE)
  1414. 00222284 2640              MOVEA.L D0,A3              A3=D0
  1415. 00222286 25400078          MOVE.L D0,120(A2)          120(JanusBase)=SEMAPH
  1416. 0022228A 67000046          BEQ $2222D2                Fehler ?
  1417. 0022228E 2040              MOVEA.L D0,A0              A0=Speicher
  1418. 00222290 41E80000          LEA 0(A0),A0               A0=Semaphore
  1419. 00222294 4EAEFDD2          JSR -558(A6)               InitSemaphore()
  1420. 00222298 48E73800          MOVEM.L D2-D4,-(A7)
  1421. 0022229C 283C000007D0      MOVE.L #2000,D4            D4=2000
  1422. 002222A2 41FA004A          LEA $2222EE(PC),A0         A0=Daten(1)(TASK)
  1423. 002222A6 2608              MOVE.L A0,D3               D3=Daten(1)(TASK)
  1424. 002222A8 243C00000000      MOVE.L #0,D2               D2=0
  1425. 002222AE 41FA030E          LEA $2225BE(PC),A0         A0=Daten(2)(TaskName)
  1426. 002222B2 2208              MOVE.L A0,D1               D1=Daten(2)(TaskName)
  1427. 002222B4 206A003A          MOVEA.L 58(A2),A0          A0=DosBase
  1428. 002222B8 224E              MOVEA.L A6,A1              A1=ExecBase
  1429. 002222BA 4EB9002225F0      JSR $2225F0                Erzeuge Process
  1430. 002222C0 04800000005C      SUBI.L #92,D0              Zeiger auf Task
  1431. 002222C6 4CDF001C          MOVEM.L (A7)+,D2-D4
  1432. 002222CA 2740003A          MOVE.L D0,58(A3)           58(Semaphore)=TaskPtr
  1433. 002222CE 66000018          BNE $2222E8                Zum Ende springen
  1434. 002222D2 48E70106          MOVEM.L D7/A5-A6,-(A7)      GURU !!!
  1435. 002222D6 2E3C7FFFFFF0      MOVE.L #$7FFFFFF0,D7
  1436. 002222DC 2C780004          MOVEA.L 4,A6
  1437. 002222E0 4EAEFF94          JSR -108(A6)
  1438. 002222E4 4CDF6080          MOVEM.L (A7)+,D7/A5-A6
  1439. 002222E8 4CDF7CFC          MOVEM.L (A7)+,D2-D7/A2-A6
  1440. 002222EC 4E75              RTS
  1441.  
  1442.  
  1443. Daten für SYSINIT_SUB2:
  1444.  
  1445. The ZaphodServiceTask:
  1446.  
  1447. 002222EE 247900000004      MOVEA.L 4,A2
  1448. 002222F4 2C4A              MOVEA.L A2,A6
  1449. 002222F6 43FA02E6          LEA $2225DE(PC),A1
  1450. 002222FA 7000              MOVEQ #0,D0
  1451. 002222FC 4EAEFDD8          JSR -552(A6)
  1452. 00222300 2640              MOVEA.L D0,A3
  1453. 00222302 200B              MOVE.L A3,D0
  1454. 00222304 67000118          BEQ $22241E
  1455. 00222308 2C4B              MOVEA.L A3,A6
  1456. 0022230A 4EAEFEF2          JSR -270(A6)
  1457. 0022230E 2C4A              MOVEA.L A2,A6
  1458. 00222310 4EAEFF7C          JSR -132(A6)
  1459. 00222314 41EE017A          LEA 378(A6),A0
  1460. 00222318 2050              MOVEA.L (A0),A0
  1461. 0022231A 2268000A          MOVEA.L 10(A0),A1
  1462. 0022231E 7000              MOVEQ #0,D0
  1463. 00222320 4EB9002225A6      JSR $2225A6
  1464. 00222326 4A00              TST.B D0
  1465. 00222328 67000010          BEQ $22233A
  1466. 0022232C 2050              MOVEA.L (A0),A0
  1467. 0022232E 2008              MOVE.L A0,D0
  1468. 00222330 66E8              BNE.S $22231A
  1469. 00222332 2C4A              MOVEA.L A2,A6
  1470. 00222334 4EAEFF76          JSR -138(A6)
  1471. 00222338 60CE              BRA.S $222308
  1472. 0022233A 2C4A              MOVEA.L A2,A6
  1473. 0022233C 4EAEFF76          JSR -138(A6)
  1474. 00222340 43FA028E          LEA $2225D0(PC),A1
  1475. 00222344 7000              MOVEQ #0,D0
  1476. 00222346 4EAEFDD8          JSR -552(A6)
  1477. 0022234A 2C40              MOVEA.L D0,A6
  1478. 0022234C 200E              MOVE.L A6,D0
  1479. 0022234E 67B8              BEQ.S $222308
  1480.  
  1481. 00222350 286E0078          MOVEA.L 120(A6),A4
  1482. 00222354 294B003E          MOVE.L A3,62(A4)           <- 62(Zaphod)
  1483.  
  1484. 00222358 C54E              EXG.L A2,A6
  1485. 0022235A 203CFFFFFFFF      MOVE.L #-1,D0
  1486. 00222360 4EAEFEB6          JSR -330(A6)
  1487. 00222364 29400032          MOVE.L D0,50(A4)
  1488. 00222368 2200              MOVE.L D0,D1
  1489. 0022236A 203C0000000E      MOVE.L #14,D0
  1490. 00222370 243C00000000      MOVE.L #0,D2
  1491. 00222376 263C00000000      MOVE.L #0,D3
  1492. 0022237C C54E              EXG.L A2,A6
  1493. 0022237E 4EAEFF94          JSR -108(A6)         SetupJanusSig()
  1494. 00222382 29400036          MOVE.L D0,54(A4)
  1495. 00222386 67000096          BEQ $22241E
  1496. 0022238A 203C00000034      MOVE.L #52,D0        D0=52
  1497. 00222390 5240              ADDQ.W #1,D0         D0+=1
  1498. 00222392 020000FE          ANDI.B #-2,D0        D0&=-2
  1499. 00222396 3400              MOVE.W D0,D2         D2=D0
  1500. 00222398 223C00001001      MOVE.L #4097,D1      D1=4097
  1501. 0022239E 4EAEFFC4          JSR -60(A6)          AllocJanusMem
  1502. 002223A2 4A80              TST.L D0
  1503. 002223A4 67000078          BEQ $22241E
  1504. 002223A8 2040              MOVEA.L D0,A0        A0=Speicher
  1505. 002223AA 10FC0000          MOVE.B #0,(A0)+
  1506. 002223AE 51CAFFFA          DBRA D2,$2223AA      Speicher löschen
  1507. 002223B2 2040              MOVEA.L D0,A0
  1508. 002223B4 72FF              MOVEQ #-1,D1         D1=-1
  1509. 002223B6 31410022          MOVE.W D1,34(A0)
  1510. 002223BA 2141000A          MOVE.L D1,10(A0)
  1511. 002223BE 2141000E          MOVE.L D1,14(A0)
  1512. 002223C2 21410002          MOVE.L D1,2(A0)
  1513. 002223C6 21410006          MOVE.L D1,6(A0)
  1514. 002223CA 2141001A          MOVE.L D1,26(A0)
  1515. 002223CE 2141001E          MOVE.L D1,30(A0)
  1516. 002223D2 21410012          MOVE.L D1,18(A0)
  1517. 002223D6 21410016          MOVE.L D1,22(A0)
  1518. 002223DA 4EAEFF4C          JSR -180(A6)        MakeBytePtr
  1519. 002223DE 117C007F0000      MOVE.B #127,0(A0)   Lock=Frei
  1520. 002223E4 4EAEFF46          JSR -186(A6)        MakeWordPtr
  1521. 002223E8 2940002E          MOVE.L D0,46(A4)    ServiceArea=Speicher
  1522. 002223EC 4EAEFFAC          JSR -84(A6)         JanusMemToOffset()
  1523. 002223F0 3200              MOVE.W D0,D1        D1=Offset
  1524. 002223F2 203C0000000E      MOVE.L #14,D0       D0=14
  1525. 002223F8 4EAEFFA0          JSR -96(A6)         SetParamOffset(Int14,Offset)
  1526. 002223FC 4EB9002221B0      JSR $2221B0         ZST_SUB#1 (PC.BOOT)
  1527. 00222402 4EB900222A44      JSR $222A44         ZST_SUB#2
  1528. 00222408 C54E              EXG.L A2,A6         A6=Exec
  1529.  
  1530. Schleife:
  1531. 0022240A 7000              MOVEQ #0,D0         D0=0
  1532. 0022240C 222C0032          MOVE.L 50(A4),D1    D1=SigBit
  1533. 00222410 03C0              BSET D1,D0          D0=SigBitMask
  1534. 00222412 4EAEFEC2          JSR -318(A6)        Wait()
  1535. 00222416 4EB900222442      JSR $222442         ZST_SUB#3
  1536. 0022241C 60EC              BRA.S $22240A       -> Zu Schleifenanfang
  1537.  
  1538. 0022241E 48E70106          MOVEM.L D7/A5-A6,-(A7)
  1539. 00222422 2E3C7FFFFFF1      MOVE.L #$7FFFFFF1,D7
  1540. 00222428 2C780004          MOVEA.L 4,A6
  1541. 0022242C 4EAEFF94          JSR -108(A6)
  1542. 00222430 4CDF6080          MOVEM.L (A7)+,D7/A5-A6
  1543. 00222434 2C7900000004      MOVEA.L 4,A6
  1544. 0022243A 7000              MOVEQ #0,D0
  1545. 0022243C 4EAEFEC2          JSR -318(A6)
  1546. 00222440 60F2              BRA.S $222434
  1547.  
  1548. ZST_SUB#3:
  1549. 00222442 48E73F3E          MOVEM.L D2-D7/A2-A6,-(A7)
  1550. 00222446 C54E              EXG.L A2,A6         A6=SysBase
  1551. 00222448 2A6C002E          MOVEA.L 46(A4),A5   A5=ServiceArea
  1552. 0022244C 41EC0000          LEA 0(A4),A0        A0=Semaphore
  1553. 00222450 C54E              EXG.L A2,A6
  1554. 00222452 4EAEFDCC          JSR -564(A6)
  1555. 00222456 C54E              EXG.L A2,A6         A6=Janus
  1556. 00222458 204D              MOVEA.L A5,A0       A0=ServiceArea
  1557. 0022245A 4EAEFF4C          JSR -180(A6)        MakeBytePtr
  1558. 0022245E 4AE80000          TAS.B 0(A0)         Test Lock
  1559. 00222462 6A06              BPL.S $22246A
  1560. 00222464 4E71              NOP
  1561. 00222466 4E71              NOP
  1562. 00222468 60F4              BRA.S $22245E
  1563. 0022246A 4EB9002229E4      JSR $2229E4         ZST_SUB#3_SUB#1
  1564.  
  1565. 00222470 B1FC00000000      CMPA.L #0,A0        A0=Zeiger auf neuen Service
  1566. 00222476 67000018          BEQ $222490
  1567. 0022247A 3010              MOVE.W (A0),D0
  1568. 0022247C 30BCFFFF          MOVE.W #-1,(A0)
  1569. 00222480 323C1001          MOVE.W #4097,D1
  1570. 00222484 4EAEFF58          JSR -168(A6)
  1571. 00222488 4EB9002224F4      JSR $2224F4
  1572. 0022248E 60DA              BRA.S $22246A
  1573.  
  1574. => A0 = 0
  1575. 00222490 4EB900222A14      JSR $222A14
  1576. 00222496 B1FC00000000      CMPA.L #0,A0
  1577. 0022249C 67000018          BEQ $2224B6
  1578. 002224A0 3010              MOVE.W (A0),D0
  1579. 002224A2 30BCFFFF          MOVE.W #-1,(A0)
  1580. 002224A6 323C1001          MOVE.W #4097,D1
  1581. 002224AA 4EAEFF58          JSR -168(A6)
  1582. 002224AE 4EB90022253C      JSR $22253C
  1583. 002224B4 60DA              BRA.S $222490
  1584. 002224B6 4EB90022299A      JSR $22299A
  1585. 002224BC 0C40FFFF          CMPI.W #-1,D0
  1586. 002224C0 67000014          BEQ $2224D6
  1587. 002224C4 323C1001          MOVE.W #4097,D1
  1588. 002224C8 4EAEFF58          JSR -168(A6)
  1589. 002224CC 7001              MOVEQ #1,D0
  1590. 002224CE 4EB900222870      JSR $222870
  1591. 002224D4 6094              BRA.S $22246A
  1592. 002224D6 204D              MOVEA.L A5,A0
  1593. 002224D8 4EAEFF4C          JSR -180(A6)
  1594. 002224DC 117C007F0000      MOVE.B #127,0(A0)
  1595. 002224E2 41EC0000          LEA 0(A4),A0
  1596. 002224E6 CD4A              EXG.L A6,A2
  1597. 002224E8 4EAEFDC6          JSR -570(A6)
  1598. 002224EC CD4A              EXG.L A6,A2
  1599. 002224EE 4CDF7CFC          MOVEM.L (A7)+,D2-D7/A2-A6
  1600. 002224F2 4E75              RTS
  1601. Ende_ZaphodServiceTask
  1602.  
  1603.  
  1604. Daten für AddServ_SUB#2:
  1605. 002224F4 48E70018          MOVEM.L A3-A4,-(A7)
  1606. 002224F8 2648              MOVEA.L A0,A3
  1607. 002224FA 4EAEFF4C          JSR -180(A6)
  1608. 002224FE 2848              MOVEA.L A0,A4
  1609. 00222500 206B0026          MOVEA.L 38(A3),A0
  1610. 00222504 C54E              EXG.L A2,A6
  1611. 00222506 4EAEFDCC          JSR -564(A6)
  1612. 0022250A C54E              EXG.L A2,A6
  1613. 0022250C 4AEC0008          TAS.B 8(A4)
  1614. 00222510 6A06              BPL.S $222518
  1615. 00222512 4E71              NOP
  1616. 00222514 4E71              NOP
  1617. 00222516 60F4              BRA.S $22250C
  1618. 00222518 204B              MOVEA.L A3,A0
  1619. 0022251A 7000              MOVEQ #0,D0
  1620. 0022251C 7201              MOVEQ #1,D1
  1621. 0022251E 4EB900222776      JSR $222776
  1622. 00222524 197C007F0008      MOVE.B #127,8(A4)
  1623. 0022252A 206B0026          MOVEA.L 38(A3),A0
  1624. 0022252E C54E              EXG.L A2,A6
  1625. 00222530 4EAEFDC6          JSR -570(A6)
  1626. 00222534 C54E              EXG.L A2,A6
  1627. 00222536 4CDF1800          MOVEM.L (A7)+,A3-A4
  1628. 0022253A 4E75              RTS
  1629.  
  1630. 0022253C 48E70018          MOVEM.L A3-A4,-(A7)
  1631. 00222540 302D0022          MOVE.W 34(A5),D0
  1632. 00222544 0C40FFFF          CMPI.W #-1,D0
  1633. 00222548 67000056          BEQ $2225A0
  1634. 0022254C 323C1001          MOVE.W #4097,D1
  1635. 00222550 4EAEFF58          JSR -168(A6)
  1636. 00222554 2648              MOVEA.L A0,A3
  1637. 00222556 322B0006          MOVE.W 6(A3),D1
  1638. 0022255A 08010000          BTST #0,D1
  1639. 0022255E 6700003A          BEQ $22259A
  1640. 00222562 4EAEFF4C          JSR -180(A6)
  1641. 00222566 2848              MOVEA.L A0,A4
  1642. 00222568 206B0026          MOVEA.L 38(A3),A0
  1643. 0022256C C54E              EXG.L A2,A6
  1644. 0022256E 4EAEFDCC          JSR -564(A6)
  1645. 00222572 C54E              EXG.L A2,A6
  1646. 00222574 4AEC0008          TAS.B 8(A4)
  1647. 00222578 6A06              BPL.S $222580
  1648. 0022257A 4E71              NOP
  1649. 0022257C 4E71              NOP
  1650. 0022257E 60F4              BRA.S $222574
  1651. 00222580 204B              MOVEA.L A3,A0
  1652. 00222582 4EB900222798      JSR $222798
  1653. 00222588 197C007F0008      MOVE.B #127,8(A4)
  1654. 0022258E 206B0026          MOVEA.L 38(A3),A0
  1655. 00222592 C54E              EXG.L A2,A6
  1656. 00222594 4EAEFDC6          JSR -570(A6)
  1657. 00222598 C54E              EXG.L A2,A6
  1658. 0022259A 302B001C          MOVE.W 28(A3),D0
  1659. 0022259E 60A4              BRA.S $222544
  1660. 002225A0 4CDF1800          MOVEM.L (A7)+,A3-A4
  1661. 002225A4 4E75              RTS
  1662. 002225A6 48E700C0          MOVEM.L A0-A1,-(A7)
  1663. 002225AA 41FA0024          LEA $2225D0(PC),A0
  1664. 002225AE 1018              MOVE.B (A0)+,D0
  1665. 002225B0 67000006          BEQ $2225B8
  1666. 002225B4 9019              SUB.B (A1)+,D0
  1667. 002225B6 67F6              BEQ.S $2225AE
  1668. 002225B8 4CDF0300          MOVEM.L (A7)+,A0-A1
  1669. 002225BC 4E75              RTS
  1670.  
  1671. Daten für SYS_INIT_SUB2:
  1672. 002225BE 5A61              ADDQ.W #5,-(A1)    <"ZaphodServiceTask">
  1673. 002225C0 7068              MOVEQ #104,D0
  1674. 002225C2 6F64              BLE.S $222628
  1675. 002225C4 5365              SUBQ.W #1,-(A5)
  1676. 002225C6 7276              MOVEQ #118,D1
  1677. 002225C8 6963              BVS.S $22262D
  1678. 002225CA 6554              BCS.S $222620
  1679. 002225CC 6173              BSR.S $222641
  1680. 002225CE 6B00 6A61         BMI $229031
  1681. 002225D2 6E75              BGT.S $222649
  1682. 002225D4 732E              DC.W 29486 ;"s."
  1683. 002225D6 6C69              BGE.S $222641
  1684. 002225D8 6272              BHI.S $22264C
  1685. 002225DA 6172              BSR.S $22264E
  1686. 002225DC 7900              DC.W 30976 ;"y."
  1687. Daten für ZaphodServiceTask:
  1688. 002225DE 6772              BEQ.S $222652          <"graphics.library">
  1689. 002225E0 6170              BSR.S $222652
  1690. 002225E2 6869              BVC.S $22264D
  1691. 002225E4 6373              BLS.S $222659
  1692. 002225E6 2E6C6962          MOVEA.L 26978(A4),A7
  1693. 002225EA 7261              MOVEQ #97,D1
  1694. 002225EC 7279              MOVEQ #121,D1
  1695. 002225EE 000048E7          ORI.B #-25,D0
  1696. 002225F2 1032              DC.W 4146 ;".2"
  1697.  
  1698.  
  1699.  
  1700. INIT_SYS_SUB2_SUB1:
  1701.  => A0=DosBase
  1702.     A1=ExecBase
  1703.     D3=Daten(1)
  1704.     D1=Daten(2)
  1705.     D4=Zahl
  1706.  
  1707. 002225F4 2649              MOVEA.L A1,A3           A3=ExecBase
  1708. 002225F6 2C49              MOVEA.L A1,A6           A6=ExecBase
  1709. 002225F8 48E74080          MOVEM.L D1/A0,-(A7)
  1710. 002225FC 203C00000010      MOVE.L #16,D0
  1711. 00222602 223C00010000      MOVE.L #65536,D1
  1712. 00222608 4EAEFF3A          JSR -198(A6)            AllocMem(16,65536)
  1713. 0022260C 4CDF0102          MOVEM.L (A7)+,D1/A0
  1714. 00222610 4A80              TST.L D0                Test
  1715. 00222612 6700002E          BEQ $222642             -> Fehler
  1716. 00222616 2440              MOVEA.L D0,A2           A2=Speicher
  1717. 00222618 357C4EF90004      MOVE.W #20217,4(A2)     4.W(A2)=20217 (JMP)
  1718. 0022261E 25430006          MOVE.L D3,6(A2)         6.L(A2)=Daten(1)
  1719. 00222622 260A              MOVE.L A2,D3            D3=Speicher
  1720. 00222624 E48B              LSR.L #2,D3             D3/=2
  1721. 00222626 2C48              MOVEA.L A0,A6           A6=DosBase
  1722. 00222628 4EAEFF76          JSR -138(A6)            CreateProc()
  1723. 0022262C 4A80              TST.L D0
  1724. 0022262E 66000012          BNE $222642             Fehler ?
  1725. 00222632 224A              MOVEA.L A2,A1           A1=Speicher
  1726. 00222634 203C00000010      MOVE.L #16,D0           D0=16
  1727. 0022263A 2C4B              MOVEA.L A3,A6           A6=ExecBase
  1728. 0022263C 4EAEFF2E          JSR -210(A6)            FreeMem
  1729. 00222640 7000              MOVEQ #0,D0             D0=0
  1730. 00222642 4CDF4C08          MOVEM.L (A7)+,D3/A2-A3/A6
  1731. 00222646 4E75              RTS
  1732.  
  1733. SucheServiceData
  1734. 00222648 48E7031C          MOVEM.L D6-D7/A3-A5,-(A7)
  1735. 0022264C 7E00              MOVEQ #0,D7           D7=0
  1736. 0022264E 2847              MOVEA.L D7,A4         A4=0
  1737. 00222650 2A6E0078          MOVEA.L 120(A6),A5    A5=ZaphodPtr
  1738. 00222654 203C0000003A      MOVE.L #58,D0         D0=58
  1739. 0022265A 223C00001001      MOVE.L #4097,D1       D1=4097
  1740. 00222660 4EAEFFC4          JSR -60(A6)           AllocJanusMem()
  1741. 00222664 4A80              TST.L D0
  1742. 00222666 67000058          BEQ $2226C0
  1743. 0022266A 2840              MOVEA.L D0,A4         A4=Speicher
  1744. 0022266C 4EAEFFAC          JSR -84(A6)           JanusMemToOffset
  1745. 00222670 3C00              MOVE.W D0,D6          D6=Offset
  1746. 00222672 204C              MOVEA.L A4,A0         A0=Speicher(W)
  1747. 00222674 4EAEFF4C          JSR -180(A6)          MakeBytePtr
  1748. 00222678 2648              MOVEA.L A0,A3         A3=Speicher(B)
  1749. 0022267A 303C0039          MOVE.W #57,D0
  1750. 0022267E 10FC0000          MOVE.B #0,(A0)+
  1751. 00222682 51C8FFFA          DBRA D0,$22267E       Speicher löschen
  1752. 00222686 29440000          MOVE.L D4,0(A4)       0(Spei)=AppID
  1753. 0022268A 39450004          MOVE.W D5,4(A4)       4(Spei)=LocID
  1754. 0022268E 177C007F0008      MOVE.B #127,8(A3)     ServDataLock
  1755. 00222694 297CFFFFFFFF001E  MOVE.L #-1,30(A4)     FirstPCCustomer
  1756. 0022269C 206D002E          MOVEA.L 46(A5),A0
  1757. 002226A0 39680022001C      MOVE.W 34(A0),28(A4)  NextServiceData
  1758. 002226A6 31460022          MOVE.W D6,34(A0)      AmigaCustomer=
  1759. 002226AA 397CFFFF001A      MOVE.W #-1,26(A4)
  1760. 002226B0 302C0006          MOVE.W 6(A4),D0
  1761. 002226B4 08C00002          BSET #2,D0
  1762. 002226B8 39400006          MOVE.W D0,6(A4)
  1763. 002226BC 60000002          BRA $2226C0
  1764. 002226C0 200C              MOVE.L A4,D0
  1765. 002226C2 204C              MOVEA.L A4,A0
  1766. 002226C4 4CDF38C0          MOVEM.L (A7)+,D6-D7/A3-A5
  1767. 002226C8 4E75              RTS
  1768.  
  1769.  
  1770. 002226CA 48E72030          MOVEM.L D2/A2-A3,-(A7)
  1771. 002226CE 2448              MOVEA.L A0,A2
  1772. 002226D0 2008              MOVE.L A0,D0
  1773. 002226D2 4EAEFFAC          JSR -84(A6)
  1774. 002226D6 3400              MOVE.W D0,D2
  1775. 002226D8 266E0078          MOVEA.L 120(A6),A3
  1776. 002226DC 266B002E          MOVEA.L 46(A3),A3
  1777. 002226E0 302B0022          MOVE.W 34(A3),D0  Janus->Zaphod->ServArea->First
  1778. 002226E4 B440              CMP.W D0,D2
  1779. 002226E6 6600000C          BNE $2226F4
  1780. 002226EA 376A001C0022      MOVE.W 28(A2),34(A3)
  1781. 002226F0 60000024          BRA $222716
  1782. 002226F4 0C40FFFF          CMPI.W #-1,D0
  1783. 002226F8 6700001C          BEQ $222716
  1784. 002226FC 223C00001001      MOVE.L #4097,D1
  1785. 00222702 4EAEFF58          JSR -168(A6)
  1786. 00222706 2040              MOVEA.L D0,A0
  1787. 00222708 3028001C          MOVE.W 28(A0),D0
  1788. 0022270C B440              CMP.W D0,D2
  1789. 0022270E 66E4              BNE.S $2226F4
  1790. 00222710 316A001C001C      MOVE.W 28(A2),28(A0)
  1791. 00222716 224A              MOVEA.L A2,A1
  1792. 00222718 203C0000003A      MOVE.L #58,D0
  1793. 0022271E 4EAEFFBE          JSR -66(A6)
  1794. 00222722 4CDF0C04          MOVEM.L (A7)+,D2/A2-A3
  1795. 00222726 4E75              RTS
  1796.  
  1797.  
  1798. Beseitigung von Struktureinträgen:
  1799. Zaphod->ServiceArea->?[x]
  1800. 00222728 2F0A              MOVE.L A2,-(A7)
  1801. 0022272A 2448              MOVEA.L A0,A2
  1802. 0022272C 7000              MOVEQ #0,D0
  1803. 0022272E 302A000C          MOVE.W 12(A2),D0
  1804. 00222732 6700000A          BEQ $22273E
  1805. 00222736 226A0012          MOVEA.L 18(A2),A1
  1806. 0022273A 4EAEFFBE          JSR -66(A6)
  1807. 0022273E 204A              MOVEA.L A2,A0
  1808. 00222740 7000              MOVEQ #0,D0
  1809. 00222742 4EAEFF28          JSR -216(A6)
  1810. 00222746 204A              MOVEA.L A2,A0
  1811. 00222748 4EBAFF80          JSR $2226CA(PC)
  1812. 0022274C 200A              MOVE.L A2,D0         D0=Memory
  1813. 0022274E 4EAEFFAC          JSR -84(A6)          JanusMemToOffset()
  1814. 00222752 206E0078          MOVEA.L 120(A6),A0
  1815. 00222756 2068002E          MOVEA.L 46(A0),A0
  1816.  
  1817. 0022275A 41E80002          LEA 2(A0),A0
  1818.  
  1819. 0022275E 323C000F          MOVE.W #15,D1
  1820. 00222762 B058              CMP.W (A0)+,D0
  1821. 00222764 66000008          BNE $22276E
  1822. 00222768 317CFFFFFFFE      MOVE.W #-1,-2(A0)
  1823. 0022276E 51C9FFF2          DBRA D1,$222762
  1824.  
  1825. 00222772 245F              MOVEA.L (A7)+,A2
  1826. 00222774 4E75              RTS
  1827.  
  1828.  
  1829.  
  1830. 00222776 48E72020          MOVEM.L D2/A2,-(A7)
  1831. 0022277A 2448              MOVEA.L A0,A2
  1832. 0022277C 1400              MOVE.B D0,D2
  1833. 0022277E 1001              MOVE.B D1,D0
  1834. 00222780 4EB900222870      JSR $222870
  1835. 00222786 D400              ADD.B D0,D2
  1836. 00222788 204A              MOVEA.L A2,A0
  1837. 0022278A 4EAEFF4C          JSR -180(A6)
  1838. 0022278E D5280009          ADD.B D2,9(A0)
  1839. 00222792 4CDF0404          MOVEM.L (A7)+,D2/A2
  1840. 00222796 4E75              RTS
  1841. 00222798 7000              MOVEQ #0,D0
  1842. 0022279A 4EB900222870      JSR $222870
  1843. 002227A0 4E75              RTS
  1844.  
  1845.  
  1846. GetService_SUB:
  1847. Installation "AmigaCustomer"
  1848. 002227A2 48E73822          MOVEM.L D2-D4/A2/A6,-(A7)
  1849. 002227A6 7400              MOVEQ #0,D2
  1850. 002227A8 01C2              BSET D0,D2
  1851. 002227AA 3601              MOVE.W D1,D3
  1852. 002227AC 3808              MOVE.W A0,D4
  1853. 002227AE 2C6E0036          MOVEA.L 54(A6),A6
  1854. 002227B2 203C0000001E      MOVE.L #30,D0
  1855. 002227B8 223C00010000      MOVE.L #65536,D1
  1856. 002227BE 4EAEFF3A          JSR -198(A6)
  1857. 002227C2 4A80              TST.L D0
  1858. 002227C4 67000088          BEQ $22284E
  1859. 002227C8 2440              MOVEA.L D0,A2        A2=AllocMem()
  1860. 002227CA 2542000A          MOVE.L D2,10(A2)     10(AC)=SigMask
  1861. 002227CE 227C00000000      MOVEA.L #0,A1
  1862. 002227D4 4EAEFEDA          JSR -294(A6)
  1863. 002227D8 25400006          MOVE.L D0,6(A2)      6(AC)=FindTask(0)
  1864. 002227DC 4A43              TST.W D3
  1865. 002227DE 66000036          BNE $222816
  1866. 002227E2 08040001          BTST #1,D4           TOPC_ONLY : Bit 8
  1867. 002227E6 67000006          BEQ $2227EE
  1868. 002227EA 08C30008          BSET #8,D3
  1869. 002227EE 08040002          BTST #2,D4           FROMPC_ONLY : Bit 9
  1870. 002227F2 67000006          BEQ $2227FA
  1871. 002227F6 08C30009          BSET #9,D3
  1872. 002227FA 08040003          BTST #3,D4           TOAmiga_ONLY : Bit 10
  1873. 002227FE 67000006          BEQ $222806
  1874. 00222802 08C3000A          BSET #10,D3
  1875. 00222806 08040004          BTST #4,D4           FROMAmiga_ONLY : Bit 11
  1876. 0022280A 67000006          BEQ $222812
  1877. 0022280E 08C3000B          BSET #11,D3
  1878. 00222812 60000034          BRA $222848
  1879. 00222816 7600              MOVEQ #0,D3
  1880.  
  1881. 00222818 08040001          BTST #1,D4
  1882. 0022281C 67000006          BEQ $222824
  1883. 00222820 08C30008          BSET #8,D3
  1884. 00222824 08040002          BTST #2,D4
  1885. 00222828 67000006          BEQ $222830
  1886. 0022282C 08C30009          BSET #9,D3
  1887. 00222830 08040003          BTST #3,D4
  1888. 00222834 67000006          BEQ $22283C
  1889. 00222838 08C3000A          BSET #10,D3
  1890. 0022283C 08040004          BTST #4,D4
  1891. 00222840 67000006          BEQ $222848
  1892. 00222844 08C3000B          BSET #11,D3
  1893. 00222848 35430004          MOVE.W D3,4(A2)
  1894. 0022284C 200A              MOVE.L A2,D0
  1895. 0022284E 2040              MOVEA.L D0,A0
  1896. 00222850 4CDF441C          MOVEM.L (A7)+,D2-D4/A2/A6
  1897. 00222854 4E75              RTS
  1898.  
  1899. 00222856 48E70002          MOVEM.L A6,-(A7)
  1900. 0022285A 203C0000001E      MOVE.L #30,D0
  1901. 00222860 2248              MOVEA.L A0,A1
  1902. 00222862 2C6E0036          MOVEA.L 54(A6),A6
  1903. 00222866 4EAEFF2E          JSR -210(A6)
  1904. 0022286A 4CDF4000          MOVEM.L (A7)+,A6
  1905. 0022286E 4E75              RTS
  1906.  
  1907.  
  1908. CallService_SUB:
  1909. 00222870 48E73032          MOVEM.L D2-D3/A2-A3/A6,-(A7)
  1910. 00222874 26680022          MOVEA.L 34(A0),A3       A3=FirstAmigaC
  1911. 00222878 1600              MOVE.B D0,D3            D3=D0
  1912. 0022287A 2C6E0036          MOVEA.L 54(A6),A6       Exec
  1913. 0022287E 227C00000000      MOVEA.L #0,A1
  1914. 00222884 4EAEFEDA          JSR -294(A6)
  1915. 00222888 2440              MOVEA.L D0,A2           A2=FindTask(0)
  1916. 0022288A 7400              MOVEQ #0,D2             D2=0
  1917. 0022288C 5303              SUBQ.B #1,D3            D3--
  1918. 0022288E 6B000068          BMI $2228F8             Test
  1919. 00222892 5303              SUBQ.B #1,D3            D3--
  1920. 00222894 6B000032          BMI $2228C8             Test
  1921. 00222898 B7FC00000000      CMPA.L #0,A3            Customer=0?
  1922. 0022289E 6700007C          BEQ $22291C             Test
  1923. 002228A2 226B0006          MOVEA.L 6(A3),A1        A1=6(CUSTOMER)
  1924. 002228A6 B5C9              CMPA.L A1,A2            Task=Customer->Task?
  1925. 002228A8 67000018          BEQ $2228C2             Test
  1926. 002228AC 302B0004          MOVE.W 4(A3),D0         D0=4(A3)
  1927. 002228B0 08000009          BTST #9,D0
  1928. 002228B4 6600000A          BNE $2228C0
  1929. 002228B8 202B000A          MOVE.L 10(A3),D0
  1930. 002228BC 4EAEFEBC          JSR -324(A6)
  1931.  
  1932. 002228C0 5202              ADDQ.B #1,D2
  1933. 002228C2 266B0000          MOVEA.L 0(A3),A3
  1934. 002228C6 60D0              BRA.S $222898
  1935.  
  1936. 002228C8 B7FC00000000      CMPA.L #0,A3
  1937. 002228CE 6700004C          BEQ $22291C
  1938. 002228D2 226B0006          MOVEA.L 6(A3),A1
  1939. 002228D6 B5C9              CMPA.L A1,A2
  1940. 002228D8 67000018          BEQ $2228F2
  1941. 002228DC 302B0004          MOVE.W 4(A3),D0
  1942. 002228E0 0800000B          BTST #11,D0
  1943. 002228E4 6600000A          BNE $2228F0
  1944. 002228E8 202B000A          MOVE.L 10(A3),D0
  1945. 002228EC 4EAEFEBC          JSR -324(A6)
  1946. 002228F0 5202              ADDQ.B #1,D2
  1947. 002228F2 266B0000          MOVEA.L 0(A3),A3
  1948. 002228F6 60D0              BRA.S $2228C8
  1949.  
  1950. 002228F8 B7FC00000000      CMPA.L #0,A3
  1951. 002228FE 6700001C          BEQ $22291C
  1952. 00222902 226B0006          MOVEA.L 6(A3),A1
  1953. 00222906 B5C9              CMPA.L A1,A2
  1954. 00222908 6700000C          BEQ $222916
  1955. 0022290C 202B000A          MOVE.L 10(A3),D0
  1956. 00222910 4EAEFEBC          JSR -324(A6)
  1957. 00222914 5202              ADDQ.B #1,D2
  1958. 00222916 266B0000          MOVEA.L 0(A3),A3
  1959. 0022291A 60DC              BRA.S $2228F8
  1960. 0022291C 2002              MOVE.L D2,D0
  1961. 0022291E 4CDF4C0C          MOVEM.L (A7)+,D2-D3/A2-A3/A6
  1962. 00222922 4E75              RTS
  1963.  
  1964.  
  1965. SERVICE SUB #1:
  1966.  
  1967. WIRD VON AddService()
  1968. AUFGERUFEN
  1969.  
  1970. 00222924 48E7C0C6          MOVEM.L D0-D1/A0-A1/A5-A6,-(A7)
  1971. 00222928 2A6E0078          MOVEA.L 120(A6),A5   A5=ZaphodPtr
  1972. 0022292C 2C6D003E          MOVEA.L 62(A5),A6    A6=GfxBase
  1973. 00222930 4AAD002E          TST.L 46(A5)         Teste ServiceArea
  1974. 00222934 66000008          BNE $22293E          wenn !=0, dann Ende
  1975. 00222938 4EAEFEF2          JSR -270(A6)         WaitTOF()
  1976. 0022293C 60F2              BRA.S $222930        Weiter testen
  1977. 0022293E 4CDF6303          MOVEM.L (A7)+,D0-D1/A0-A1/A5-A6
  1978. 00222942 4E75              RTS
  1979.  
  1980.  
  1981. 00222944 48E7003A          MOVEM.L A2-A4/A6,-(A7)
  1982. 00222948 286E0036          MOVEA.L 54(A6),A4
  1983. 0022294C 266E0078          MOVEA.L 120(A6),A3
  1984. 00222950 246B003E          MOVEA.L 62(A3),A2
  1985. 00222954 206B002E          MOVEA.L 46(A3),A0
  1986. 00222958 47EB0000          LEA 0(A3),A3
  1987. 0022295C 41E8000A          LEA 10(A0),A0
  1988. 00222960 7003              MOVEQ #3,D0
  1989. 00222962 7208              MOVEQ #8,D1
  1990. 00222964 5541              SUBQ.W #2,D1
  1991. 00222966 0C70FFFF1000      CMPI.W #-1,0(A0,D1.W)
  1992. 0022296C 57C8FFF6          DBEQ D0,$222964
  1993. 00222970 6700001E          BEQ $222990
  1994. 00222974 2F08              MOVE.L A0,-(A7)
  1995. 00222976 204B              MOVEA.L A3,A0
  1996. 00222978 2C4C              MOVEA.L A4,A6
  1997. 0022297A 4EAEFDC6          JSR -570(A6)
  1998. 0022297E 2C4A              MOVEA.L A2,A6
  1999. 00222980 4EAEFEF2          JSR -270(A6)
  2000. 00222984 204B              MOVEA.L A3,A0
  2001. 00222986 2C4C              MOVEA.L A4,A6
  2002. 00222988 4EAEFDCC          JSR -564(A6)
  2003. 0022298C 205F              MOVEA.L (A7)+,A0
  2004. 0022298E 60D0              BRA.S $222960
  2005. 00222990 D0C1              ADDA.W D1,A0
  2006. 00222992 2008              MOVE.L A0,D0
  2007. 00222994 4CDF5C00          MOVEM.L (A7)+,A2-A4/A6
  2008. 00222998 4E75              RTS
  2009. 0022299A 2F02              MOVE.L D2,-(A7)
  2010. 0022299C 206E0078          MOVEA.L 120(A6),A0
  2011. 002229A0 2068002E          MOVEA.L 46(A0),A0
  2012. 002229A4 43E80002          LEA 2(A0),A1
  2013. 002229A8 2049              MOVEA.L A1,A0
  2014. 002229AA 7003              MOVEQ #3,D0
  2015. 002229AC 7208              MOVEQ #8,D1
  2016. 002229AE 5541              SUBQ.W #2,D1
  2017. 002229B0 0C70FFFF1000      CMPI.W #-1,0(A0,D1.W)
  2018. 002229B6 56C8FFF6          DBNE D0,$2229AE
  2019. 002229BA 67000020          BEQ $2229DC
  2020. 002229BE D0C1              ADDA.W D1,A0
  2021. 002229C0 3010              MOVE.W (A0),D0
  2022. 002229C2 2049              MOVEA.L A1,A0
  2023. 002229C4 7203              MOVEQ #3,D1
  2024. 002229C6 3410              MOVE.W (A0),D2
  2025. 002229C8 B440              CMP.W D0,D2
  2026. 002229CA 66000006          BNE $2229D2
  2027. 002229CE 30BCFFFF          MOVE.W #-1,(A0)
  2028. 002229D2 5488              ADDQ.L #2,A0
  2029. 002229D4 51C9FFF0          DBRA D1,$2229C6
  2030. 002229D8 60000006          BRA $2229E0
  2031. 002229DC 303CFFFF          MOVE.W #-1,D0
  2032. 002229E0 241F              MOVE.L (A7)+,D2
  2033. 002229E2 4E75              RTS
  2034.  
  2035. ZST_SUB#3_SUB#1:
  2036. 002229E4 206E0078          MOVEA.L 120(A6),A0
  2037. 002229E8 2068002E          MOVEA.L 46(A0),A0
  2038. 002229EC 41E80012          LEA 18(A0),A0          A0=ServArea+18
  2039. 002229F0 7001              MOVEQ #1,D0            D0=1
  2040. 002229F2 7204              MOVEQ #4,D1            D1=4
  2041. 002229F4 5541              SUBQ.W #2,D1           D1=2
  2042. 002229F6 0C70FFFF1000      CMPI.W #-1,0(A0,D1.W)  -1 ?
  2043. 002229FC 56C8FFF6          DBNE D0,$2229F4
  2044. 00222A00 67000008          BEQ $222A0A            OK, dann weiter
  2045. 00222A04 D0C1              ADDA.W D1,A0           A0=A0+D1
  2046. 00222A06 60000008          BRA $222A10            ->
  2047. 00222A0A 207C00000000      MOVEA.L #0,A0          A0=0
  2048. 00222A10 2008              MOVE.L A0,D0           D0=A0
  2049. 00222A12 4E75              RTS                    Ende
  2050.  
  2051. 00222A14 206E0078          MOVEA.L 120(A6),A0
  2052. 00222A18 2068002E          MOVEA.L 46(A0),A0
  2053. 00222A1C 41E80016          LEA 22(A0),A0
  2054. 00222A20 7001              MOVEQ #1,D0
  2055. 00222A22 7204              MOVEQ #4,D1
  2056. 00222A24 5541              SUBQ.W #2,D1
  2057. 00222A26 0C70FFFF1000      CMPI.W #-1,0(A0,D1.W)
  2058. 00222A2C 56C8FFF6          DBNE D0,$222A24
  2059. 00222A30 67000008          BEQ $222A3A
  2060. 00222A34 D0C1              ADDA.W D1,A0
  2061. 00222A36 60000008          BRA $222A40
  2062. 00222A3A 207C00000000      MOVEA.L #0,A0
  2063. 00222A40 2008              MOVE.L A0,D0
  2064. 00222A42 4E75              RTS
  2065.  
  2066.  
  2067.  
  2068. SERVICE SUB #2:
  2069. WIRD VON AddService & ZaphodServiceTask AUFGERUFEN
  2070.  
  2071. 00222A44 48E7C0F0          MOVEM.L D0-D1/A0-A3,-(A7)
  2072. 00222A48 206E002A          MOVEA.L 42(A6),A0
  2073. 00222A4C 4EAEFF46          JSR -186(A6)
  2074. 00222A50 2448              MOVEA.L A0,A2       A2=WortPtr TO ParamRAM
  2075. 00222A52 266E0036          MOVEA.L 54(A6),A3   A3=Exec
  2076. 00222A56 302A0024          MOVE.W 36(A2),D0
  2077. 00222A5A 08000002          BTST #2,D0
  2078. 00222A5E 6600003C          BNE $222A9C
  2079. 00222A62 4A6A0030          TST.W 48(A2)
  2080. 00222A66 66000010          BNE $222A78
  2081. 00222A6A 223C00000032      MOVE.L #50,D1
  2082. 00222A70 4EB900222AA2      JSR $222AA2
  2083. 00222A76 60EA              BRA.S $222A62
  2084. 00222A78 223C000002EE      MOVE.L #750,D1
  2085. 00222A7E 4EB900222AA2      JSR $222AA2
  2086. 00222A84 CD4B              EXG.L A6,A3
  2087. 00222A86 4EAEFF7C          JSR -132(A6)
  2088. 00222A8A 302A0024          MOVE.W 36(A2),D0
  2089. 00222A8E 08C00002          BSET #2,D0
  2090. 00222A92 35400024          MOVE.W D0,36(A2)
  2091. 00222A96 4EAEFF76          JSR -138(A6)
  2092. 00222A9A CD4B              EXG.L A6,A3
  2093. 00222A9C 4CDF0F03          MOVEM.L (A7)+,D0-D1/A0-A3
  2094. 00222AA0 4E75              RTS
  2095.  
  2096.  
  2097. 00222AA2 2F0E              MOVE.L A6,-(A7)
  2098. 00222AA4 2C6E003A          MOVEA.L 58(A6),A6
  2099. 00222AA8 4EAEFF3A          JSR -198(A6)
  2100. 00222AAC 2C5F              MOVEA.L (A7)+,A6
  2101. 00222AAE 4E75              RTS
  2102.  
  2103.  
  2104. 00222AB0 48E70022          MOVEM.L A2/A6,-(A7)
  2105. 00222AB4 20280026          MOVE.L 38(A0),D0
  2106. 00222AB8 66000028          BNE $222AE2
  2107. 00222ABC 2448              MOVEA.L A0,A2
  2108. 00222ABE 2C6E0036          MOVEA.L 54(A6),A6
  2109. 00222AC2 203C0000002E      MOVE.L #46,D0
  2110. 00222AC8 7200              MOVEQ #0,D1
  2111. 00222ACA 4EAEFF3A          JSR -198(A6)
  2112. 00222ACE 4A80              TST.L D0
  2113. 00222AD0 67000010          BEQ $222AE2
  2114. 00222AD4 25400026          MOVE.L D0,38(A2)
  2115. 00222AD8 2040              MOVEA.L D0,A0
  2116. 00222ADA 4EAEFDD2          JSR -558(A6)
  2117. 00222ADE 202A0026          MOVE.L 38(A2),D0
  2118. 00222AE2 4CDF4400          MOVEM.L (A7)+,A2/A6
  2119. 00222AE6 4E75              RTS
  2120.  
  2121. ReleaseService_SUB:
  2122. 00222AE8 48E70018          MOVEM.L A3-A4,-(A7)
  2123. 00222AEC 2848              MOVEA.L A0,A4        A4=Service
  2124. 00222AEE 227C00000000      MOVEA.L #0,A1        A1=0
  2125. 00222AF4 C54E              EXG.L A2,A6
  2126. 00222AF6 4EAEFEDA          JSR -294(A6)         FindTask()
  2127. 00222AFA C54E              EXG.L A2,A6
  2128. 00222AFC 267C00000000      MOVEA.L #0,A3        A3=0
  2129. 00222B02 226C0022          MOVEA.L 34(A4),A1    A1=FirstAmigaCustomer
  2130. Test:
  2131. 00222B06 B3FC00000000      CMPA.L #0,A1         A1=0 ??
  2132. 00222B0C 67000032          BEQ $222B40          -> Ende
  2133. 00222B10 B0A90006          CMP.L 6(A1),D0       D0=Task ?
  2134. 00222B14 6700000A          BEQ $222B20
  2135. 00222B18 2649              MOVEA.L A1,A3        A3=FAC
  2136. 00222B1A 22690000          MOVEA.L 0(A1),A1     A1=0(FAC)
  2137. 00222B1E 60E6              BRA.S $222B06
  2138. Gefunden:
  2139. 00222B20 B7FC00000000      CMPA.L #0,A3         A3=0
  2140. 00222B26 6600000C          BNE $222B34
  2141. 00222B2A 296900000022      MOVE.L 0(A1),34(A4)  ActiveAmigaCustomer=FirstAC
  2142. 00222B30 60000008          BRA $222B3A          -> Weiter
  2143. 00222B34 276900000000      MOVE.L 0(A1),0(A3)
  2144. 00222B3A 2049              MOVEA.L A1,A0
  2145. 00222B3C 4EBAFD18          JSR $222856(PC)
  2146. Ende:
  2147. 00222B40 4CDF1800          MOVEM.L (A7)+,A3-A4
  2148. 00222B44 4E75              RTS
  2149.  
  2150.  
  2151. ReleaseService_SUB2:
  2152. 00222B46 22680026          MOVEA.L 38(A0),A1    A1=Semaphore
  2153. 00222B4A 217C000000000026  MOVE.L #0,38(A0)     Semaphore=0
  2154. 00222B52 702E              MOVEQ #46,D0         D0=46
  2155. 00222B54 C54E              EXG.L A2,A6
  2156. 00222B56 4EAEFF2E          JSR -210(A6)         FreeMem()
  2157. 00222B5A C54E              EXG.L A2,A6
  2158. 00222B5C 4E75              RTS
  2159. 00222B5E 4E75              RTS
  2160.  
  2161.  
  2162. -138: AddService(data,appID,locID,size,type,sigNr,flags)
  2163.                   A0   D0     D1   D2   D3    D4    D5
  2164.  
  2165.  
  2166. 00222B60 48E7BFBE          MOVEM.L D0/D2-A0/A2-A6,-(A7)
  2167. SYSTEM STACK:
  2168.  48  A6
  2169.  44  A5
  2170.  40  A4
  2171.  36  A3
  2172.  32  A2
  2173.  28  A0 : ServiceData
  2174.  24  D7
  2175.  20  D6
  2176.  16  D5 : flags
  2177.  12  D4 : sigNr
  2178.  08  D3 : type
  2179.  04  D2 : size
  2180.  00  D0 : appID
  2181. 0222B64 4EB900222924      JSR $222924        CALL SERVICE SUB #1
  2182. 00222B6A 4EB900222A44      JSR $222A44        CALL SERVICE SUB #2
  2183. 00222B70 3E04              MOVE.W D4,D7       D7=SigNr
  2184. 00222B72 3C05              MOVE.W D5,D6       D6=Flags
  2185. 00222B74 2800              MOVE.L D0,D4       D4=AppID
  2186. 00222B76 2A01              MOVE.L D1,D5       D5=LocalID
  2187. 00222B78 246E0036          MOVEA.L 54(A6),A2  A2=ExecBase
  2188. 00222B7C 287C00000000      MOVEA.L #0,A4      A4=0
  2189. 00222B82 2A4C              MOVEA.L A4,A5      A5=0
  2190. 00222B84 203C0000FFFF      MOVE.L #65535,D0   D0=65535
  2191. 00222B8A C480              AND.L D0,D2        D2 &= D0
  2192. 00222B8C C680              AND.L D0,D3        D3 &= D0
  2193. 00222B8E CA80              AND.L D0,D5        D5 &= D0
  2194. 00222B90 CC80              AND.L D0,D6        D6 &= D0
  2195. 00222B92 CE80              AND.L D0,D7        D7 &= D0
  2196. 00222B94 2F7C000000000000  MOVE.L #0,0(A7)
  2197. 00222B9C 266E0078          MOVEA.L 120(A6),A3
  2198. 00222BA0 41EB0000          LEA 0(A3),A0        Semaphore
  2199. 00222BA4 CD4A              EXG.L A6,A2         A6=Exec
  2200. 00222BA6 4EAEFDCC          JSR -564(A6)        ObtainSemaphore()
  2201. 00222BAA CD4A              EXG.L A6,A2         A6=Janus
  2202. 00222BAC 266B002E          MOVEA.L 46(A3),A3
  2203. 00222BB0 204B              MOVEA.L A3,A0
  2204. 00222BB2 4EAEFF4C          JSR -180(A6)        MakeBytePtr
  2205.  
  2206. TEST:
  2207. 00222BB6 4AE80000          TAS.B 0(A0)         Teste 0(A0)
  2208. 00222BBA 6A06              BPL.S $222BC2       Wenn Positiv, dann zu POSITIV
  2209. 00222BBC 4E71              NOP
  2210. 00222BBE 4E71              NOP
  2211. 00222BC0 60F4              BRA.S $222BB6       Sonst weiter testen
  2212.  
  2213. POSITIV:
  2214. 00222BC2 366B0022          MOVEA.W 34(A3),A3
  2215. 00222BC6 60000030          BRA $222BF8
  2216.  
  2217. 00222BCA 300B              MOVE.W A3,D0      JanusOffset
  2218. 00222BCC 223C00001001      MOVE.L #4097,D1   MemType
  2219. 00222BD2 4EAEFF58          JSR -168(A6)      JanusOffsetToMem
  2220. 00222BD6 2640              MOVEA.L D0,A3     A3=Speicher
  2221. 00222BD8 302B0006          MOVE.W 6(A3),D0
  2222. 00222BDC 08000000          BTST #0,D0
  2223. 00222BE0 66000012          BNE $222BF4
  2224. 00222BE4 B8AB0000          CMP.L 0(A3),D4
  2225. 00222BE8 6600000A          BNE $222BF4
  2226. 00222BEC BA6B0004          CMP.W 4(A3),D5
  2227. 00222BF0 67000010          BEQ $222C02
  2228. 00222BF4 366B001C          MOVEA.W 28(A3),A3
  2229.  
  2230.  
  2231. 00222BF8 B6FCFFFF          CMPA.W #-1,A3
  2232. 00222BFC 67000054          BEQ $222C52
  2233. 00222C00 60C8              BRA.S $222BCA
  2234. 00222C02 204B              MOVEA.L A3,A0
  2235. 00222C04 4EAEFF4C          JSR -180(A6)
  2236. 00222C08 4A280009          TST.B 9(A0)
  2237. 00222C0C 6600000A          BNE $222C18
  2238. 00222C10 4A28000A          TST.B 10(A0)
  2239. 00222C14 6700000E          BEQ $222C24
  2240. 00222C18 2F7C000000070000  MOVE.L #7,0(A7)
  2241. 00222C20 600001CC          BRA $222DEE
  2242. 00222C24 302B0006          MOVE.W 6(A3),D0
  2243. 00222C28 08000004          BTST #4,D0
  2244. 00222C2C 66000012          BNE $222C40
  2245. 00222C30 4AAB0022          TST.L 34(A3)
  2246. 00222C34 67000016          BEQ $222C4C
  2247. 00222C38 08060000          BTST #0,D6
  2248. 00222C3C 6700000E          BEQ $222C4C
  2249. 00222C40 2F7C000000090000  MOVE.L #9,0(A7)
  2250. 00222C48 600001A4          BRA $222DEE
  2251. 00222C4C 284B              MOVEA.L A3,A4
  2252. 00222C4E 60000020          BRA $222C70
  2253. 00222C52 4EB900222648      JSR $222648
  2254. 00222C58 4A80              TST.L D0
  2255. 00222C5A 6600000E          BNE $222C6A
  2256. 00222C5E 2F7C000000030000  MOVE.L #3,0(A7)
  2257. 00222C66 60000186          BRA $222DEE
  2258. 00222C6A 2840              MOVEA.L D0,A4
  2259. 00222C6C 08C60008          BSET #8,D6
  2260. 00222C70 08060000          BTST #0,D6
  2261. 00222C74 6700000E          BEQ $222C84
  2262. 00222C78 302C0006          MOVE.W 6(A4),D0
  2263. 00222C7C 08C00004          BSET #4,D0
  2264. 00222C80 39400006          MOVE.W D0,6(A4)
  2265. 00222C84 2002              MOVE.L D2,D0
  2266. 00222C86 2203              MOVE.L D3,D1
  2267. 00222C88 4EAEFFC4          JSR -60(A6)
  2268. 00222C8C 4A80              TST.L D0
  2269. 00222C8E 6600000E          BNE $222C9E
  2270. 00222C92 2F7C000000030000  MOVE.L #3,0(A7)
  2271. 00222C9A 60000152          BRA $222DEE
  2272. 00222C9E 2A40              MOVEA.L D0,A5
  2273. 00222CA0 204D              MOVEA.L A5,A0
  2274. 00222CA2 4EAEFF4C          JSR -180(A6)
  2275. 00222CA6 3202              MOVE.W D2,D1
  2276. 00222CA8 5341              SUBQ.W #1,D1
  2277. 00222CAA 7000              MOVEQ #0,D0
  2278. 00222CAC 10C0              MOVE.B D0,(A0)+
  2279. 00222CAE 51C9FFFC          DBRA D1,$222CAC
  2280. 00222CB2 3942000C          MOVE.W D2,12(A4)
  2281. 00222CB6 3943000E          MOVE.W D3,14(A4)
  2282. 00222CBA 200D              MOVE.L A5,D0
  2283. 00222CBC 4EAEFFAC          JSR -84(A6)
  2284. 00222CC0 39400010          MOVE.W D0,16(A4)
  2285. 00222CC4 294D0012          MOVE.L A5,18(A4)
  2286. 00222CC8 206E002A          MOVEA.L 42(A6),A0
  2287. 00222CCC 4EAEFF46          JSR -186(A6)
  2288. 00222CD0 08030000          BTST #0,D3
  2289. 00222CD4 6700000A          BEQ $222CE0
  2290. 00222CD8 41E80002          LEA 2(A0),A0
  2291. 00222CDC 60000006          BRA $222CE4
  2292. 00222CE0 41E80010          LEA 16(A0),A0
  2293. 00222CE4 302C0010          MOVE.W 16(A4),D0
  2294. 00222CE8 4840              SWAP D0
  2295. 00222CEA 30280006          MOVE.W 6(A0),D0
  2296. 00222CEE 29400016          MOVE.L D0,22(A4)
  2297. 00222CF2 204C              MOVEA.L A4,A0
  2298. 00222CF4 4EB900222AB0      JSR $222AB0
  2299. 00222CFA 4A80              TST.L D0
  2300. 00222CFC 6600000E          BNE $222D0C
  2301. 00222D00 2F7C000000040000  MOVE.L #4,0(A7)
  2302. 00222D08 600000E4          BRA $222DEE
  2303.  
  2304. 00222D0C 3007              MOVE.W D7,D0    D0=SigNr
  2305. 00222D0E 3046              MOVEA.W D6,A0   A0=Flags
  2306. 00222D10 7201              MOVEQ #1,D1     D1=1
  2307. 00222D12 4EB9002227A2      JSR $2227A2
  2308. 00222D18 4A80              TST.L D0
  2309. 00222D1A 6600000E          BNE $222D2A
  2310. 00222D1E 2F7C000000040000  MOVE.L #4,0(A7)
  2311. 00222D26 600000C6          BRA $222DEE
  2312. 00222D2A 216C00220000      MOVE.L 34(A4),0(A0)
  2313. 00222D30 29480022          MOVE.L A0,34(A4)
  2314. 00222D34 08060005          BTST #5,D6
  2315. 00222D38 67000020          BEQ $222D5A
  2316. 00222D3C 206C0026          MOVEA.L 38(A4),A0
  2317. 00222D40 C54E              EXG.L A2,A6
  2318. 00222D42 4EAEFDCC          JSR -564(A6)
  2319. 00222D46 C54E              EXG.L A2,A6
  2320. 00222D48 204C              MOVEA.L A4,A0
  2321. 00222D4A 4EAEFF4C          JSR -180(A6)
  2322. 00222D4E 4AE80008          TAS.B 8(A0)
  2323. 00222D52 6A06              BPL.S $222D5A
  2324. 00222D54 4E71              NOP
  2325. 00222D56 4E71              NOP
  2326. 00222D58 60F4              BRA.S $222D4E
  2327. 00222D5A 302C0006          MOVE.W 6(A4),D0
  2328. 00222D5E 08C00006          BSET #6,D0
  2329. 00222D62 39400006          MOVE.W D0,6(A4)
  2330. 00222D66 2F00              MOVE.L D0,-(A7)
  2331. 00222D68 204C              MOVEA.L A4,A0
  2332. 00222D6A 7001              MOVEQ #1,D0
  2333. 00222D6C 7202              MOVEQ #2,D1
  2334. 00222D6E 4EB900222776      JSR $222776
  2335.  
  2336. 00222D74 205F              MOVEA.L (A7)+,A0
  2337. 00222D76 266E0078          MOVEA.L 120(A6),A3
  2338. 00222D7A 206B002E          MOVEA.L 46(A3),A0
  2339. 00222D7E 4EAEFF4C          JSR -180(A6)
  2340. 00222D82 117C007F0000      MOVE.B #127,0(A0)
  2341.  
  2342. 00222D88 41EB0000          LEA 0(A3),A0
  2343. 00222D8C CD4A              EXG.L A6,A2
  2344. 00222D8E 4EAEFDC6          JSR -570(A6)
  2345. 00222D92 CD4A              EXG.L A6,A2
  2346. 00222D94 266B002E          MOVEA.L 46(A3),A3
  2347. 00222D98 CD4A              EXG.L A6,A2
  2348. 00222D9A 4EAEFF7C          JSR -132(A6)
  2349. 00222D9E CD4A              EXG.L A6,A2
  2350. 00222DA0 0C6BFFFF001A      CMPI.W #-1,26(A3)
  2351. 00222DA6 67000026          BEQ $222DCE
  2352. 00222DAA 0C6BFFFF001C      CMPI.W #-1,28(A3)
  2353. 00222DB0 67000018          BEQ $222DCA
  2354. 00222DB4 2F0B              MOVE.L A3,-(A7)
  2355. 00222DB6 266E0078          MOVEA.L 120(A6),A3
  2356. 00222DBA 266B003E          MOVEA.L 62(A3),A3
  2357. 00222DBE C74E              EXG.L A3,A6
  2358. 00222DC0 4EAEFEF2          JSR -270(A6)
  2359. 00222DC4 2C4B              MOVEA.L A3,A6
  2360. 00222DC6 265F              MOVEA.L (A7)+,A3
  2361. 00222DC8 60D6              BRA.S $222DA0
  2362. 00222DCA D6FC0002          ADDA.W #2,A3
  2363. 00222DCE 200C              MOVE.L A4,D0
  2364. 00222DD0 4EAEFFAC          JSR -84(A6)
  2365. 00222DD4 3740001A          MOVE.W D0,26(A3)
  2366. 00222DD8 CD4A              EXG.L A6,A2
  2367. 00222DDA 4EAEFF76          JSR -138(A6)
  2368. 00222DDE CD4A              EXG.L A6,A2
  2369. 00222DE0 203C0000000F      MOVE.L #15,D0
  2370. 00222DE6 4EAEFFD0          JSR -48(A6)
  2371. 00222DEA 6000007A          BRA $222E66
  2372. 00222DEE B9FC00000000      CMPA.L #0,A4
  2373. 00222DF4 6700001A          BEQ $222E10
  2374. 00222DF8 4AAC0022          TST.L 34(A4)
  2375. 00222DFC 66000012          BNE $222E10
  2376. 00222E00 4AAC0026          TST.L 38(A4)
  2377. 00222E04 6700000A          BEQ $222E10
  2378. 00222E08 204C              MOVEA.L A4,A0
  2379. 00222E0A 4EB900222B46      JSR $222B46
  2380. 00222E10 B9FC00000000      CMPA.L #0,A4
  2381. 00222E16 67000018          BEQ $222E30
  2382. 00222E1A 08060008          BTST #8,D6
  2383. 00222E1E 67000010          BEQ $222E30
  2384. 00222E22 204C              MOVEA.L A4,A0
  2385. 00222E24 4EB9002226CA      JSR $2226CA
  2386. 00222E2A 287C00000000      MOVEA.L #0,A4
  2387. 00222E30 BBFC00000000      CMPA.L #0,A5
  2388. 00222E36 67000010          BEQ $222E48
  2389. 00222E3A 224D              MOVEA.L A5,A1
  2390. 00222E3C 2002              MOVE.L D2,D0
  2391. 00222E3E 4EAEFFBE          JSR -66(A6)
  2392. 00222E42 2A7C00000000      MOVEA.L #0,A5
  2393. 00222E48 266E0078          MOVEA.L 120(A6),A3
  2394. 00222E4C 206B002E          MOVEA.L 46(A3),A0
  2395. 00222E50 4EAEFF4C          JSR -180(A6)
  2396. 00222E54 117C007F0000      MOVE.B #127,0(A0)
  2397. 00222E5A 41EB0000          LEA 0(A3),A0
  2398. 00222E5E CD4A              EXG.L A6,A2
  2399. 00222E60 4EAEFDC6          JSR -570(A6)
  2400. 00222E64 CD4A              EXG.L A6,A2
  2401. 00222E66 206F001C          MOVEA.L 28(A7),A0            ; PTR TO ServiceData
  2402. 00222E6A 208C              MOVE.L A4,(A0)               ; Service eintragen
  2403. 00222E6C 4CDF7DFD          MOVEM.L (A7)+,D0/D2-A0/A2-A6
  2404. 00222E70 4E75              RTS
  2405.  
  2406.  
  2407. -144(): GetService(data,appID,locID,sigNr,flags)
  2408.                     A0   D0    D1    D2    D3
  2409. (??)   00222E72 000048E7          ORI.B #-25,D0
  2410. (??)   00222E76 BFFE              DC.W 49150 ;"¿þ"
  2411. 00222E78 4EB900222924      JSR $222924
  2412. 00222E7E 4EB900222A44      JSR $222A44
  2413. 00222E84 2800              MOVE.L D0,D4
  2414. 00222E86 2A01              MOVE.L D1,D5
  2415. 00222E88 7C00              MOVEQ #0,D6
  2416. 00222E8A 203C0000FFFF      MOVE.L #65535,D0
  2417. 00222E90 C480              AND.L D0,D2
  2418. 00222E92 C680              AND.L D0,D3
  2419. 00222E94 CA80              AND.L D0,D5
  2420. 00222E96 246E0036          MOVEA.L 54(A6),A2
  2421. 00222E9A 287C00000000      MOVEA.L #0,A4
  2422. 00222EA0 2A4C              MOVEA.L A4,A5        A5=0
  2423. 00222EA2 2F7C000000000000  MOVE.L #0,0(A7)
  2424. 00222EAA 266E0078          MOVEA.L 120(A6),A3
  2425. 00222EAE 41EB0000          LEA 0(A3),A0
  2426. 00222EB2 CD4A              EXG.L A6,A2
  2427. 00222EB4 4EAEFDCC          JSR -564(A6)
  2428. 00222EB8 CD4A              EXG.L A6,A2
  2429. 00222EBA 266B002E          MOVEA.L 46(A3),A3
  2430. 00222EBE 204B              MOVEA.L A3,A0
  2431. 00222EC0 4EAEFF4C          JSR -180(A6)
  2432. 00222EC4 4AE80000          TAS.B 0(A0)
  2433. 00222EC8 6A06              BPL.S $222ED0
  2434. 00222ECA 4E71              NOP
  2435. 00222ECC 4E71              NOP
  2436. 00222ECE 60F4              BRA.S $222EC4
  2437. 00222ED0 366B0022          MOVEA.W 34(A3),A3  Offset auf ServiceData
  2438. 00222ED4 6000003E          BRA $222F14
  2439. ->
  2440.  
  2441. 00222ED8 300B              MOVE.W A3,D0
  2442. 00222EDA 223C00001001      MOVE.L #4097,D1
  2443. 00222EE0 4EAEFF58          JSR -168(A6)     JanusOffsetToMem
  2444. 00222EE4 2640              MOVEA.L D0,A3    A3=Mem
  2445. 00222EE6 302B0006          MOVE.W 6(A3),D0
  2446. 00222EEA 08000000          BTST #0,D0
  2447. 00222EEE 66000020          BNE $222F10
  2448. 00222EF2 B8AB0000          CMP.L 0(A3),D4
  2449. 00222EF6 66000018          BNE $222F10
  2450. 00222EFA BA6B0004          CMP.W 4(A3),D5
  2451. 00222EFE 66000010          BNE $222F10
  2452. 00222F02 2A4B              MOVEA.L A3,A5   A3=ServiceDataPtr
  2453. 00222F04 204B              MOVEA.L A3,A0
  2454. 00222F06 4EAEFF4C          JSR -180(A6)
  2455. 00222F0A 2648              MOVEA.L A0,A3
  2456. 00222F0C 6000000C          BRA $222F1A
  2457. 00222F10 366B001C          MOVEA.W 28(A3),A3  Offset auf NextService
  2458.  
  2459. 00222F14 B6FCFFFF          CMPA.W #-1,A3
  2460. 00222F18 66BE              BNE.S $222ED8  Wenn nicht -1, dann zurück
  2461.  
  2462. 00222F1A BBFC00000000      CMPA.L #0,A5
  2463. 00222F20 6700002A          BEQ $222F4C
  2464. 00222F24 4AAD0026          TST.L 38(A5)   ServiceData.Semaphore
  2465. 00222F28 6600001C          BNE $222F46
  2466. 00222F2C 204D              MOVEA.L A5,A0  A0=ServiceData
  2467. 00222F2E 4EB900222AB0      JSR $222AB0
  2468. 00222F34 4A80              TST.L D0
  2469. 00222F36 6600000E          BNE $222F46
  2470. 00222F3A 2F7C000000040000  MOVE.L #4,0(A7)
  2471. 00222F42 60000116          BRA $22305A
  2472. 00222F46 204D              MOVEA.L A5,A0
  2473. 00222F48 4EAEFF1C          JSR -228(A6)
  2474.  
  2475. 00222F4C BBFC00000000      CMPA.L #0,A5
  2476. 00222F52 6700002A          BEQ $222F7E
  2477. 00222F56 302D0006          MOVE.W 6(A5),D0
  2478. 00222F5A 08000004          BTST #4,D0
  2479. 00222F5E 66000012          BNE $222F72
  2480. 00222F62 4AAD0022          TST.L 34(A5)
  2481. 00222F66 67000016          BEQ $222F7E
  2482. 00222F6A 08030005          BTST #5,D3
  2483. 00222F6E 6700000E          BEQ $222F7E
  2484. 00222F72 2F7C000000090000  MOVE.L #9,0(A7)
  2485. 00222F7A 600000DE          BRA $22305A
  2486.  
  2487. 00222F7E BBFC00000000      CMPA.L #0,A5
  2488. 00222F84 67000044          BEQ $222FCA
  2489. 00222F88 4A2B0009          TST.B 9(A3)
  2490. 00222F8C 6600000A          BNE $222F98
  2491. 00222F90 4A2B000A          TST.B 10(A3)
  2492. 00222F94 67000034          BEQ $222FCA
  2493. 00222F98 3002              MOVE.W D2,D0
  2494. 00222F9A 3043              MOVEA.W D3,A0
  2495. 00222F9C 7200              MOVEQ #0,D1
  2496. 00222F9E 4EB9002227A2      JSR $2227A2         => Inst. AmigaCustomer
  2497. 00222FA4 4A80              TST.L D0
  2498. 00222FA6 6600000E          BNE $222FB6
  2499. 00222FAA 2F7C000000040000  MOVE.L #4,0(A7)
  2500. 00222FB2 600000A6          BRA $22305A
  2501. 00222FB6 2840              MOVEA.L D0,A4
  2502. 00222FB8 296D00220000      MOVE.L 34(A5),0(A4)
  2503. 00222FBE 2B4C0022          MOVE.L A4,34(A5)
  2504. 00222FC2 522B0009          ADDQ.B #1,9(A3)
  2505. 00222FC6 60000122          BRA $2230EA
  2506.  
  2507. 00222FCA 08030000          BTST #0,D3
  2508. 00222FCE 6600000E          BNE $222FDE
  2509. 00222FD2 2F7C000000060000  MOVE.L #6,0(A7)
  2510. 00222FDA 6000007E          BRA $22305A
  2511. 00222FDE BBFC00000000      CMPA.L #0,A5
  2512. 00222FE4 66000046          BNE $22302C
  2513. 00222FE8 4EB900222648      JSR $222648
  2514. 00222FEE 4A80              TST.L D0
  2515. 00222FF0 6600000E          BNE $223000
  2516. 00222FF4 2F7C000000040000  MOVE.L #4,0(A7)
  2517. 00222FFC 6000005C          BRA $22305A
  2518. 00223000 08C60000          BSET #0,D6
  2519. 00223004 2A48              MOVEA.L A0,A5
  2520. 00223006 4EAEFF4C          JSR -180(A6)
  2521. 0022300A 2648              MOVEA.L A0,A3
  2522. 0022300C 204D              MOVEA.L A5,A0
  2523. 0022300E 4EB900222AB0      JSR $222AB0
  2524. 00223014 4A80              TST.L D0
  2525. 00223016 6600000E          BNE $223026
  2526. 0022301A 2F7C000000040000  MOVE.L #4,0(A7)
  2527. 00223022 60000036          BRA $22305A
  2528. 00223026 204D              MOVEA.L A5,A0
  2529. 00223028 4EAEFF1C          JSR -228(A6)
  2530. 0022302C 3002              MOVE.W D2,D0
  2531. 0022302E 3043              MOVEA.W D3,A0
  2532. 00223030 7200              MOVEQ #0,D1
  2533. 00223032 4EB9002227A2      JSR $2227A2
  2534. 00223038 4A80              TST.L D0
  2535. 0022303A 6600000E          BNE $22304A
  2536. 0022303E 2F7C000000040000  MOVE.L #4,0(A7)
  2537. 00223046 60000012          BRA $22305A
  2538. 0022304A 2840              MOVEA.L D0,A4
  2539. 0022304C 296D00220000      MOVE.L 34(A5),0(A4)
  2540. 00223052 2B4C0022          MOVE.L A4,34(A5)
  2541. 00223056 60000092          BRA $2230EA
  2542. 0022305A B9FC00000000      CMPA.L #0,A4
  2543. 00223060 67000010          BEQ $223072
  2544. 00223064 204C              MOVEA.L A4,A0
  2545. 00223066 4EB900222856      JSR $222856
  2546. 0022306C 287C00000000      MOVEA.L #0,A4
  2547. 00223072 BBFC00000000      CMPA.L #0,A5
  2548. 00223078 6700001A          BEQ $223094
  2549. 0022307C 4AAD0022          TST.L 34(A5)
  2550. 00223080 66000012          BNE $223094
  2551. 00223084 4AAD0026          TST.L 38(A5)
  2552. 00223088 6700000A          BEQ $223094
  2553. 0022308C 204D              MOVEA.L A5,A0
  2554. 0022308E 4EB900222B46      JSR $222B46
  2555. 00223094 08060000          BTST #0,D6
  2556. 00223098 67000012          BEQ $2230AC
  2557. 0022309C 204D              MOVEA.L A5,A0
  2558. 0022309E 4EB9002226CA      JSR $2226CA
  2559. 002230A4 08860000          BCLR #0,D6
  2560. 002230A8 6000003A          BRA $2230E4
  2561. 002230AC BBFC00000000      CMPA.L #0,A5
  2562. 002230B2 67000030          BEQ $2230E4
  2563. 002230B6 177C007F0008      MOVE.B #127,8(A3)
  2564. 002230BC 4AAD0026          TST.L 38(A5)
  2565. 002230C0 67000022          BEQ $2230E4
  2566. 002230C4 4AAD0022          TST.L 34(A5)
  2567. 002230C8 6600000E          BNE $2230D8
  2568. 002230CC 204D              MOVEA.L A5,A0
  2569. 002230CE 4EB900222B46      JSR $222B46
  2570. 002230D4 6000000E          BRA $2230E4
  2571. 002230D8 206D0026          MOVEA.L 38(A5),A0
  2572. 002230DC CD4A              EXG.L A6,A2
  2573. 002230DE 4EAEFDC6          JSR -570(A6)
  2574. 002230E2 CD4A              EXG.L A6,A2
  2575. 002230E4 2A7C00000000      MOVEA.L #0,A5
  2576. 002230EA BBFC00000000      CMPA.L #0,A5
  2577. 002230F0 6700001C          BEQ $22310E
  2578. 002230F4 08030005          BTST #5,D3
  2579. 002230F8 6700000E          BEQ $223108
  2580. 002230FC 302D0006          MOVE.W 6(A5),D0
  2581. 00223100 08C00004          BSET #4,D0
  2582. 00223104 3B400006          MOVE.W D0,6(A5)
  2583. 00223108 204D              MOVEA.L A5,A0
  2584. 0022310A 4EAEFF16          JSR -234(A6)
  2585. 0022310E 206E0078          MOVEA.L 120(A6),A0
  2586. 00223112 2068002E          MOVEA.L 46(A0),A0
  2587. 00223116 4EAEFF4C          JSR -180(A6)
  2588. 0022311A 117C007F0000      MOVE.B #127,0(A0)
  2589. 00223120 206E0078          MOVEA.L 120(A6),A0
  2590. 00223124 41E80000          LEA 0(A0),A0
  2591. 00223128 CD4A              EXG.L A6,A2
  2592. 0022312A 4EAEFDC6          JSR -570(A6)
  2593. 0022312E CD4A              EXG.L A6,A2
  2594. 00223130 BBFC00000000      CMPA.L #0,A5
  2595. 00223136 6700000E          BEQ $223146
  2596. 0022313A 302D0006          MOVE.W 6(A5),D0
  2597. 0022313E 08000006          BTST #6,D0
  2598. 00223142 66000122          BNE $223266
  2599. 00223146 2F4D0020          MOVE.L A5,32(A7)
  2600. 0022314A 3003              MOVE.W D3,D0
  2601. 0022314C 02400300          ANDI.W #768,D0
  2602. 00223150 66000008          BNE $22315A
  2603. 00223154 7E00              MOVEQ #0,D7
  2604. 00223156 60000026          BRA $22317E
  2605. 0022315A 0C400100          CMPI.W #256,D0
  2606. 0022315E 6600000A          BNE $22316A
  2607. 00223162 3E3C000F          MOVE.W #15,D7
  2608. 00223166 60000016          BRA $22317E
  2609. 0022316A 0C400200          CMPI.W #512,D0
  2610. 0022316E 6600000A          BNE $22317A
  2611. 00223172 3E3C001E          MOVE.W #30,D7
  2612. 00223176 60000006          BRA $22317E
  2613. 0022317A 3E3C0078          MOVE.W #120,D7
  2614. 0022317E 08030006          BTST #6,D3
  2615. 00223182 670000BA          BEQ $22323E
  2616. 00223186 2F03              MOVE.L D3,-(A7)
  2617. 00223188 4FEFFFFC          LEA -4(A7),A7
  2618. 0022318C 204F              MOVEA.L A7,A0
  2619. 0022318E 203C0000007B      MOVE.L #123,D0
  2620. 00223194 7202              MOVEQ #2,D1
  2621. 00223196 7600              MOVEQ #0,D3
  2622. 00223198 4EBAFCDA          JSR $222E74(PC)
  2623. 0022319C 2A5F              MOVEA.L (A7)+,A5
  2624. 0022319E 261F              MOVE.L (A7)+,D3
  2625. 002231A0 0C400000          CMPI.W #0,D0
  2626. 002231A4 67000020          BEQ $2231C6
  2627. 002231A8 5347              SUBQ.W #1,D7
  2628. 002231AA 6E00000A          BGT $2231B6
  2629. 002231AE 2A6F0020          MOVEA.L 32(A7),A5
  2630. 002231B2 600000B2          BRA $223266
  2631. 002231B6 2F0E              MOVE.L A6,-(A7)
  2632. 002231B8 2C6E003A          MOVEA.L 58(A6),A6
  2633. 002231BC 7232              MOVEQ #50,D1
  2634. 002231BE 4EAEFF3A          JSR -198(A6)
  2635. 002231C2 2C5F              MOVEA.L (A7)+,A6
  2636. 002231C4 60C0              BRA.S $223186
  2637. 002231C6 204D              MOVEA.L A5,A0
  2638. 002231C8 4EAEFF1C          JSR -228(A6)
  2639. 002231CC 206D0012          MOVEA.L 18(A5),A0
  2640. 002231D0 3018              MOVE.W (A0)+,D0
  2641. 002231D2 5340              SUBQ.W #1,D0
  2642. 002231D4 4A90              TST.L (A0)
  2643. 002231D6 67000010          BEQ $2231E8
  2644. 002231DA D1FC00000006      ADDA.L #6,A0
  2645. 002231E0 51C8FFF2          DBRA D0,$2231D4
  2646. 002231E4 6000000A          BRA $2231F0
  2647. 002231E8 08C60001          BSET #1,D6
  2648. 002231EC 20C4              MOVE.L D4,(A0)+
  2649. 002231EE 3085              MOVE.W D5,(A0)
  2650. 002231F0 204D              MOVEA.L A5,A0
  2651. 002231F2 4EAEFF16          JSR -234(A6)
  2652. 002231F6 08060001          BTST #1,D6
  2653. 002231FA 66000018          BNE $223214
  2654. 002231FE 5347              SUBQ.W #1,D7
  2655. 00223200 6F000018          BLE $22321A
  2656. 00223204 2F0E              MOVE.L A6,-(A7)
  2657. 00223206 2C6E003A          MOVEA.L 58(A6),A6
  2658. 0022320A 7232              MOVEQ #50,D1
  2659. 0022320C 4EAEFF3A          JSR -198(A6)
  2660. 00223210 2C5F              MOVEA.L (A7)+,A6
  2661. 00223212 60B2              BRA.S $2231C6
  2662. 00223214 204D              MOVEA.L A5,A0
  2663. 00223216 4EAEFF6A          JSR -150(A6)
  2664. 0022321A 204D              MOVEA.L A5,A0
  2665. 0022321C 4EAEFF64          JSR -156(A6)
  2666. 00223220 2A6F0020          MOVEA.L 32(A7),A5
  2667. 00223224 BBFC00000000      CMPA.L #0,A5
  2668. 0022322A 6700000A          BEQ $223236
  2669. 0022322E 204D              MOVEA.L A5,A0
  2670. 00223230 4EAEFF4C          JSR -180(A6)
  2671. 00223234 2648              MOVEA.L A0,A3
  2672. 00223236 08060001          BTST #1,D6
  2673. 0022323A 6700002A          BEQ $223266
  2674. 0022323E BBFC00000000      CMPA.L #0,A5
  2675. 00223244 67000020          BEQ $223266
  2676. 00223248 5347              SUBQ.W #1,D7
  2677. 0022324A 6F00001A          BLE $223266
  2678. 0022324E 2F0E              MOVE.L A6,-(A7)
  2679. 00223250 2C6E003A          MOVEA.L 58(A6),A6
  2680. 00223254 7232              MOVEQ #50,D1
  2681. 00223256 4EAEFF3A          JSR -198(A6)
  2682. 0022325A 2C5F              MOVEA.L (A7)+,A6
  2683. 0022325C 302D0006          MOVE.W 6(A5),D0
  2684. 00223260 08000006          BTST #6,D0
  2685. 00223264 67E2              BEQ.S $223248
  2686. 00223266 206F001C          MOVEA.L 28(A7),A0
  2687. 0022326A 208D              MOVE.L A5,(A0)
  2688. 0022326C 4CDF7FFD          MOVEM.L (A7)+,D0/D2-A6
  2689. 00223270 4E75              RTS
  2690.  
  2691. -150: CallService()
  2692. (??) 00223272 000048E7          ORI.B #-25,D0
  2693. 00223276 203E              MOVE.L SR,D0
  2694. 00223278 4EAEFF46          JSR -186(A6)
  2695. 0022327C 2408              MOVE.L A0,D2
  2696. 0022327E 4EB900222924      JSR $222924
  2697. 00223284 246E0036          MOVEA.L 54(A6),A2
  2698. 00223288 2A6E0078          MOVEA.L 120(A6),A5
  2699. 0022328C 2A6D002E          MOVEA.L 46(A5),A5
  2700. 00223290 204D              MOVEA.L A5,A0
  2701. 00223292 4EAEFF4C          JSR -180(A6)
  2702. 00223296 2848              MOVEA.L A0,A4
  2703. 00223298 2042              MOVEA.L D2,A0
  2704. 0022329A 4EAEFF1C          JSR -228(A6)
  2705. 0022329E 2042              MOVEA.L D2,A0
  2706. 002232A0 4EAEFF4C          JSR -180(A6)
  2707. 002232A4 4A280009          TST.B 9(A0)
  2708. 002232A8 6700002C          BEQ $2232D6
  2709. 002232AC 2F09              MOVE.L A1,-(A7)
  2710. 002232AE 227C00000000      MOVEA.L #0,A1
  2711. 002232B4 48E7C0C2          MOVEM.L D0-D1/A0-A1/A6,-(A7)
  2712. 002232B8 2C780004          MOVEA.L 4,A6
  2713. 002232BC 4EAEFEDA          JSR -294(A6)
  2714. 002232C0 4CDF4303          MOVEM.L (A7)+,D0-D1/A0-A1/A6
  2715. 002232C4 225F              MOVEA.L (A7)+,A1
  2716. 002232C6 2F00              MOVE.L D0,-(A7)
  2717. 002232C8 4FEF0004          LEA 4(A7),A7
  2718. 002232CC 2042              MOVEA.L D2,A0
  2719. 002232CE 7002              MOVEQ #2,D0
  2720. 002232D0 4EB900222870      JSR $222870
  2721. 002232D6 2042              MOVEA.L D2,A0
  2722. 002232D8 4EAEFF16          JSR -234(A6)
  2723. 002232DC 206E0078          MOVEA.L 120(A6),A0
  2724. 002232E0 41E80000          LEA 0(A0),A0
  2725. 002232E4 CD4A              EXG.L A6,A2
  2726. 002232E6 4EAEFDCC          JSR -564(A6)
  2727. 002232EA CD4A              EXG.L A6,A2
  2728. 002232EC 4EB900222944      JSR $222944
  2729. 002232F2 2F08              MOVE.L A0,-(A7)
  2730. 002232F4 2002              MOVE.L D2,D0
  2731. 002232F6 4EAEFFAC          JSR -84(A6)
  2732. 002232FA 205F              MOVEA.L (A7)+,A0
  2733. 002232FC 3080              MOVE.W D0,(A0)
  2734. 002232FE 206E0078          MOVEA.L 120(A6),A0
  2735. 00223302 41E80000          LEA 0(A0),A0
  2736. 00223306 CD4A              EXG.L A6,A2
  2737. 00223308 4EAEFDC6          JSR -570(A6)
  2738. 0022330C CD4A              EXG.L A6,A2
  2739. 0022330E 203C0000000F      MOVE.L #15,D0
  2740. 00223314 4EAEFFD0          JSR -48(A6)
  2741. 00223318 4CDF7C04          MOVEM.L (A7)+,D2/A2-A6
  2742. 0022331C 4E75              RTS
  2743.  
  2744.  
  2745. -156(): ReleaseService()
  2746. 0022331E 48E7003E          MOVEM.L A2-A6,-(A7)
  2747. 00223322 4EB900222924      JSR $222924
  2748. 00223328 4EAEFF46          JSR -186(A6)         MakeWordPtr()
  2749. 0022332C 2848              MOVEA.L A0,A4        A4=Service
  2750. 0022332E 246E0036          MOVEA.L 54(A6),A2    A2=Exec
  2751. 00223332 2A6E0078          MOVEA.L 120(A6),A5   A5=ZaphodTask
  2752. 00223336 41ED0000          LEA 0(A5),A0
  2753. 0022333A CD4A              EXG.L A6,A2
  2754. 0022333C 4EAEFDCC          JSR -564(A6)
  2755. 00223340 CD4A              EXG.L A6,A2
  2756. 00223342 206D002E          MOVEA.L 46(A5),A0    A0=ServiceArea
  2757. 00223346 4EAEFF4C          JSR -180(A6)         MakeBytePtr()
  2758. 0022334A 4AE80000          TAS.B 0(A0)
  2759. 0022334E 6A06              BPL.S $223356
  2760. 00223350 4E71              NOP
  2761. 00223352 4E71              NOP
  2762. 00223354 60F4              BRA.S $22334A        Lock
  2763. 00223356 204C              MOVEA.L A4,A0        A0=Service
  2764. 00223358 4EAEFF1C          JSR -228(A6)         LockService()
  2765. 0022335C 204C              MOVEA.L A4,A0
  2766. 0022335E 4EAEFF4C          JSR -180(A6)         A0=ByteService
  2767. 00223362 4A280009          TST.B 9(A0)          PCUserCount
  2768. 00223366 67000006          BEQ $22336E
  2769. 0022336A 53280009          SUBQ.B #1,9(A0)      PCUserCount--
  2770. 0022336E 204C              MOVEA.L A4,A0        A0=Service
  2771. 00223370 4EB900222AE8      JSR $222AE8          Suche aktiven AmigaUser
  2772. 00223376 4AAC0022          TST.L 34(A4)         Teste
  2773. 0022337A 6600002A          BNE $2233A6          -> Keiner
  2774. 0022337E 204C              MOVEA.L A4,A0        A0=Service
  2775. 00223380 4EB900222B46      JSR $222B46          Lösche Semaphore
  2776. 00223386 4AAC0022          TST.L 34(A4)
  2777. 0022338A 6600001A          BNE $2233A6
  2778. 0022338E 0CACFFFFFFFF001E  CMPI.L #-1,30(A4)    FirstPCCustomer
  2779. 00223396 6600000E          BNE $2233A6          -> Keiner
  2780. 0022339A 204C              MOVEA.L A4,A0        A0=Service
  2781. 0022339C 4EB900222728      JSR $222728          Aufräumen
  2782. 002233A2 60000022          BRA $2233C6          -> X001
  2783.  
  2784. 002233A6 204C              MOVEA.L A4,A0        Service
  2785. 002233A8 4EAEFF4C          JSR -180(A6)
  2786. 002233AC 117C007F0008      MOVE.B #127,8(A0)    UnlockService
  2787. 002233B2 4AAC0022          TST.L 34(A4)
  2788. 002233B6 6700000E          BEQ $2233C6
  2789. 002233BA 206C0026          MOVEA.L 38(A4),A0    A0=Semaphore
  2790. 002233BE CD4A              EXG.L A6,A2
  2791. 002233C0 4EAEFDC6          JSR -570(A6)
  2792. 002233C4 CD4A              EXG.L A6,A2
  2793. X001:
  2794. 002233C6 206D002E          MOVEA.L 46(A5),A0  A0=ServiceArea
  2795. 002233CA 4EAEFF4C          JSR -180(A6)
  2796. 002233CE 117C007F0000      MOVE.B #127,0(A0)  Unlock
  2797. 002233D4 41ED0000          LEA 0(A5),A0
  2798. 002233D8 CD4A              EXG.L A6,A2
  2799. 002233DA 4EAEFDC6          JSR -570(A6)
  2800. 002233DE CD4A              EXG.L A6,A2
  2801. 002233E0 4CDF7C00          MOVEM.L (A7)+,A2-A6
  2802. 002233E4 4E75              RTS
  2803.  
  2804.  
  2805. -162: DeleteService()
  2806. 002233E6 48E7003E          MOVEM.L A2-A6,-(A7)
  2807. 002233EA 4EB900222924      JSR $222924           CALLSERVSUB1
  2808. 002233F0 4EAEFF46          JSR -186(A6)
  2809. 002233F4 2848              MOVEA.L A0,A4         A4=Service
  2810. 002233F6 246E0036          MOVEA.L 54(A6),A2     A2=SysBase
  2811. 002233FA 2A6E0078          MOVEA.L 120(A6),A5
  2812. 002233FE 2A6D002E          MOVEA.L 46(A5),A5     A5=ServiceArea
  2813. 00223402 206E0078          MOVEA.L 120(A6),A0
  2814. 00223406 41E80000          LEA 0(A0),A0          A0=Semaphore
  2815. 0022340A CD4A              EXG.L A6,A2           A6=SysBase
  2816. 0022340C 4EAEFDCC          JSR -564(A6)          ObtainSemaphore()
  2817. 00223410 CD4A              EXG.L A6,A2           A6=Janus
  2818. 00223412 204D              MOVEA.L A5,A0         A0=ServiceArea
  2819. 00223414 4EAEFF4C          JSR -180(A6)          MakeBytePtr()
  2820. 00223418 4AE80000          TAS.B 0(A0)           Test auf gültigkeit
  2821. 0022341C 6A06              BPL.S $223424         Wenn gültig, dann Sprung
  2822. 0022341E 4E71              NOP                   No Operation
  2823. 00223420 4E71              NOP                   No Operation
  2824. 00223422 60F4              BRA.S $223418         Warte, bis gültig
  2825. 00223424 204C              MOVEA.L A4,A0         A0=Service
  2826. 00223426 4EAEFF1C          JSR -228(A6)          LockService()
  2827. 0022342A 204C              MOVEA.L A4,A0         Service=A0
  2828. 0022342C 4EB900222AE8      JSR $222AE8
  2829. 00223432 204C              MOVEA.L A4,A0         Service=A0
  2830. 00223434 4EAEFF4C          JSR -180(A6)          MakeBytePtr()
  2831. 00223438 53280009          SUBQ.B #1,9(A0)       UserCount--
  2832. 0022343C 4A280009          TST.B 9(A0)           Test
  2833. 00223440 6600000A          BNE $22344C           OK, dann weiter
  2834. 00223444 204C              MOVEA.L A4,A0
  2835. 00223446 4EB900222B46      JSR $222B46
  2836. Weiter:
  2837. 0022344C 204C              MOVEA.L A4,A0         A0=Service
  2838. 0022344E 4EAEFF4C          JSR -180(A6)          MakeBytePtr()
  2839. 00223452 4A280009          TST.B 9(A0)           Teste UC1
  2840. 00223456 66000032          BNE $22348A
  2841. 0022345A 4A28000A          TST.B 10(A0)          Teste UC2
  2842. 0022345E 6600002A          BNE $22348A
  2843. 00223462 204C              MOVEA.L A4,A0         A0=Service
  2844. 00223464 4EB900222728      JSR $222728
  2845. 0022346A 204D              MOVEA.L A5,A0         A0=ServiceArea
  2846. 0022346C 4EAEFF4C          JSR -180(A6)          MakeBytePtr()
  2847. 00223470 117C007F0000      MOVE.B #127,0(A0)     Lock
  2848. 00223476 206E0078          MOVEA.L 120(A6),A0    A0=Zaphod
  2849. 0022347A 41E80000          LEA 0(A0),A0          A0=Semaphore
  2850. 0022347E CD4A              EXG.L A6,A2
  2851. 00223480 4EAEFDC6          JSR -570(A6)
  2852. 00223484 CD4A              EXG.L A6,A2
  2853. 00223486 60000092          BRA $22351A           Sprung
  2854.  
  2855. 0022348A 302C0006          MOVE.W 6(A4),D0
  2856. 0022348E 08C00000          BSET #0,D0
  2857. 00223492 39400006          MOVE.W D0,6(A4)
  2858. 00223496 204C              MOVEA.L A4,A0
  2859. 00223498 4EB900222798      JSR $222798
  2860. 0022349E 204C              MOVEA.L A4,A0
  2861. 002234A0 4EAEFF16          JSR -234(A6)
  2862. 002234A4 204D              MOVEA.L A5,A0
  2863. 002234A6 4EAEFF4C          JSR -180(A6)
  2864. 002234AA 117C007F0000      MOVE.B #127,0(A0)
  2865. 002234B0 206E0078          MOVEA.L 120(A6),A0
  2866. 002234B4 41E80000          LEA 0(A0),A0
  2867. 002234B8 CD4A              EXG.L A6,A2
  2868. 002234BA 4EAEFDC6          JSR -570(A6)
  2869. 002234BE CD4A              EXG.L A6,A2
  2870. 002234C0 266E0078          MOVEA.L 120(A6),A3
  2871. 002234C4 266B002E          MOVEA.L 46(A3),A3
  2872. 002234C8 CD4A              EXG.L A6,A2
  2873. 002234CA 4EAEFF7C          JSR -132(A6)
  2874. 002234CE CD4A              EXG.L A6,A2
  2875. 002234D0 0C6BFFFF001E      CMPI.W #-1,30(A3)
  2876. 002234D6 67000026          BEQ $2234FE
  2877. 002234DA 0C6BFFFF0020      CMPI.W #-1,32(A3)
  2878. 002234E0 67000018          BEQ $2234FA
  2879. 002234E4 2F0B              MOVE.L A3,-(A7)
  2880. 002234E6 266E0078          MOVEA.L 120(A6),A3
  2881. 002234EA 266B003E          MOVEA.L 62(A3),A3
  2882. 002234EE C74E              EXG.L A3,A6
  2883. 002234F0 4EAEFEF2          JSR -270(A6)
  2884. 002234F4 2C4B              MOVEA.L A3,A6
  2885. 002234F6 265F              MOVEA.L (A7)+,A3
  2886. 002234F8 60D6              BRA.S $2234D0
  2887. 002234FA D6FC0002          ADDA.W #2,A3
  2888. 002234FE 200C              MOVE.L A4,D0
  2889. 00223500 4EAEFFAC          JSR -84(A6)
  2890. 00223504 3740001E          MOVE.W D0,30(A3)
  2891. 00223508 CD4A              EXG.L A6,A2
  2892.  
  2893. Weiter:
  2894. 0022350A 4EAEFF76          JSR -138(A6)     Permit()
  2895. 0022350E CD4A              EXG.L A6,A2
  2896. 00223510 203C0000000F      MOVE.L #15,D0
  2897. 00223516 4EAEFFD0          JSR -48(A6)      SendJanusInt(15)
  2898. 0022351A 4CDF7C00          MOVEM.L (A7)+,A2-A6
  2899. 0022351E 4E75              RTS
  2900.  
  2901.  
  2902. -168:
  2903. 00223520 48E72000          MOVEM.L D2,-(A7)
  2904. 00223524 3400              MOVE.W D0,D2
  2905. 00223526 203C0000FFFF      MOVE.L #65535,D0
  2906. 0022352C C280              AND.L D0,D1
  2907. 0022352E C480              AND.L D0,D2
  2908. 00223530 08010001          BTST #1,D1
  2909. 00223534 670E              BEQ.S $223544
  2910. 00223536 0C6ED4000076      CMPI.W #-11264,118(A6)
  2911. 0022353C 6606              BNE.S $223544
  2912. 0022353E 068200004000      ADDI.L #16384,D2
  2913. 00223544 2001              MOVE.L D1,D0
  2914. 00223546 4EAEFFB8          JSR -72(A6)
  2915. 0022354A D082              ADD.L D2,D0
  2916. 0022354C 2040              MOVEA.L D0,A0
  2917. 0022354E 4CDF0004          MOVEM.L (A7)+,D2
  2918. 00223552 4E75              RTS
  2919.  
  2920. -174():
  2921. 00223554 48E72020          MOVEM.L D2/A2,-(A7)
  2922. 00223558 02800000FFFF      ANDI.L #65535,D0
  2923. 0022355E 2448              MOVEA.L A0,A2
  2924. 00223560 2400              MOVE.L D0,D2
  2925. 00223562 2200              MOVE.L D0,D1
  2926. 00223564 2008              MOVE.L A0,D0
  2927. 00223566 4EAEFFB2          JSR -78(A6)
  2928. 0022356A 0280FFFFCFFF      ANDI.L #-12289,D0
  2929. 00223570 028200003000      ANDI.L #12288,D2
  2930. 00223576 8480              OR.L D0,D2
  2931. 00223578 200A              MOVE.L A2,D0
  2932. 0022357A 4EAEFFAC          JSR -84(A6)
  2933. 0022357E 2202              MOVE.L D2,D1
  2934. 00223580 4EAEFF58          JSR -168(A6)
  2935. 00223584 4CDF0404          MOVEM.L (A7)+,D2/A2
  2936. 00223588 4E75              RTS
  2937.  
  2938. -180():
  2939. 0022358A 203C00000000      MOVE.L #0,D0
  2940. 00223590 4EAEFF52          JSR -174(A6)
  2941. 00223594 4E75              RTS
  2942.  
  2943. -186():
  2944. 00223596 203C00001000      MOVE.L #4096,D0
  2945. 0022359C 4EAEFF52          JSR -174(A6)
  2946. 002235A0 4E75              RTS
  2947.  
  2948. -228:  LockService(service) (A0)
  2949. (??) 002235A2 000048E7          ORI.B #-25,D0
  2950. (??) 002235A6 0030              DC.W 48 ;".0"
  2951.  
  2952.                            MOVEM.L A2-A3,-(A7)
  2953. 002235A8 4EAEFF46          JSR -186(A6)         MakeWordPtr()
  2954. 002235AC 2448              MOVEA.L A0,A2        A2=Service
  2955. 002235AE 266E0036          MOVEA.L 54(A6),A3    A3=ExecBase
  2956. 002235B2 20680026          MOVEA.L 38(A0),A0    A0=Service.Semaphore
  2957. 002235B6 CD4B              EXG.L A6,A3          A6=ExecBase
  2958. 002235B8 4EAEFDCC          JSR -564(A6)         ObtainSemaphore()
  2959. 002235BC CD4B              EXG.L A6,A3          A6=JanusBase
  2960. 002235BE 204A              MOVEA.L A2,A0        A0=Service
  2961. 002235C0 4EAEFF4C          JSR -180(A6)         MakeBytePtr()
  2962. 002235C4 4AE80008          TAS.B 8(A0)          Teste ServiceDataLock
  2963. 002235C8 6A06              BPL.S $2235D0        Okay, dann Ende
  2964. 002235CA 4E71              NOP
  2965. 002235CC 4E71              NOP
  2966. 002235CE 60F4              BRA.S $2235C4        Teste erneut
  2967. 002235D0 4CDF0C00          MOVEM.L (A7)+,A2-A3
  2968. 002235D4 4E75              RTS
  2969.  
  2970.  
  2971. -234: UnLockService(service) (A0)
  2972. 002235D6 48E70030          MOVEM.L A2-A3,-(A7)
  2973. 002235DA 4EAEFF46          JSR -186(A6)          MakeWordPtr()
  2974. 002235DE 2448              MOVEA.L A0,A2         A2=Service
  2975. 002235E0 266E0036          MOVEA.L 54(A6),A3     A3=ExecBase
  2976. 002235E4 4EAEFF4C          JSR -180(A6)          MakeBytePtr()
  2977. 002235E8 117C007F0008      MOVE.B #127,8(A0)     Teste ServiceDataLock
  2978. 002235EE 204A              MOVEA.L A2,A0         A0=Service
  2979. 002235F0 20680026          MOVEA.L 38(A0),A0     A0=Semaphore
  2980. 002235F4 CD4B              EXG.L A6,A3           A3=ExecBase
  2981. 002235F6 4EAEFDC6          JSR -570(A6)          ReleaseSemaphore
  2982. 002235FA CD4B              EXG.L A6,A3           A6=JanusBase
  2983. 002235FC 4CDF0C00          MOVEM.L (A7)+,A2-A3
  2984. 00223600 4E75              RTS
  2985.  
  2986.  
  2987.  
  2988. 00223602 00000000          ORI.B #0,D0
  2989. 00223606 00000022          ORI.B #34,D0
  2990. 0022360A CB780022          AND.W D5,34
  2991. 0022360E E450              ROXR.W #2,D0
  2992. 00223610 0D00              BTST D6,D0
  2993. 00223612 00223E94          ORI.B #-108,-(A2)
  2994. 00223616 000400FF          ORI.B #-1,D4
  2995. 0022361A 8000              OR.B D0,D0
  2996. 0022361C FFFF              DC.W 65535 ;"ÿÿ"
  2997. 0022361E 8000              OR.B D0,D0
  2998. 00223620 00000000          ORI.B #0,D0
  2999. 00223624 00000000          ORI.B #0,D0
  3000. 00223628 00008000          ORI.B #0,D0
  3001. 0022362C 00000000          ORI.B #0,D0
  3002. 00223630 000000FC          ORI.B #-4,D0
  3003. 00223634 2FB400000000      MOVE.L 0(A4,D0.W),0(A7,D0.W)
  3004. 0022363A 00FF              DC.W 255 ;".ÿ"
  3005. 0022363C 4B6A              DC.W 19306 ;"Kj"
  3006. 0022363E 00223E42          ORI.B #66,-(A2)
  3007. 00223642 002236C4          ORI.B #-60,-(A2)
  3008. 00223646 00223E94          ORI.B #-108,-(A2)
  3009. 0022364A 00000000          ORI.B #0,D0
  3010. 0022364E 00000000          ORI.B #0,D0
  3011. 00223652 00201838          ORI.B #56,-(A0)
  3012. 00223656 00000000          ORI.B #0,D0
  3013. 0022365A 00201838          ORI.B #56,-(A0)
  3014. 0022365E 00000000          ORI.B #0,D0
  3015. 00223662 00000000          ORI.B #0,D0
  3016. 00223666 00000000          ORI.B #0,D0
  3017. 0022366A 00000000          ORI.B #0,D0
  3018. 0022366E 00000000          ORI.B #0,D0
  3019. 00223672 0008              DC.W 8 ;".."
  3020. 00223674 00223608          ORI.B #8,-(A2)
  3021. 00223678 0022367C          ORI.B #124,-(A2)
  3022. 0022367C 00000000          ORI.B #0,D0
  3023. 00223680 00223678          ORI.B #120,-(A2)
  3024. 00223684 00000000          ORI.B #0,D0
  3025. 00223688 0008              DC.W 8 ;".."
  3026. 0022368A 06150000          ADDI.B #0,(A5)
  3027. 0022368E 07D0              BSET D3,(A0)
  3028. 00223690 00C0              DC.W 192 ;".À"
  3029. 00223692 4D38              DC.W 19768 ;"M8"
  3030. 00223694 00000000          ORI.B #0,D0
  3031. 00223698 0008              DC.W 8 ;".."
  3032. 0022369A 8DB10000          OR.L D6,0(A1,D0.W)
  3033. 0022369E 00CD              DC.W 205 ;".Í"
  3034. 002236A0 00000000          ORI.B #0,D0
  3035. 002236A4 00000000          ORI.B #0,D0
  3036. 002236A8 00000000          ORI.B #0,D0
  3037. 002236AC 00C0              DC.W 192 ;".À"
  3038. 002236AE 7B0C              DC.W 31500 ;"{."
  3039. 002236B0 00C0              DC.W 192 ;".À"
  3040. 002236B2 0AF4              DC.W 2804 ;".ô"
  3041. 002236B4 00000000          ORI.B #0,D0
  3042. 002236B8 00223E90          ORI.B #-112,-(A2)
  3043. 002236BC 00000000          ORI.B #0,D0
  3044. 002236C0 00000000          ORI.B #0,D0
  3045. 002236C4 00000000          ORI.B #0,D0
  3046. 002236C8 00000000          ORI.B #0,D0
  3047. 002236CC 00000000          ORI.B #0,D0
  3048. 002236D0 00000000          ORI.B #0,D0
  3049. 002236D4 00000000          ORI.B #0,D0
  3050. 002236D8 00000000          ORI.B #0,D0
  3051. 002236DC 00000000          ORI.B #0,D0
  3052. 002236E0 00000000          ORI.B #0,D0
  3053. 002236E4 00000000          ORI.B #0,D0
  3054. 002236E8 00000000          ORI.B #0,D0
  3055. 002236EC 00000000          ORI.B #0,D0
  3056. 002236F0 00000000          ORI.B #0,D0
  3057. 002236F4 00000000          ORI.B #0,D0
  3058. 002236F8 00000000          ORI.B #0,D0
  3059. 002236FC 00000000          ORI.B #0,D0
  3060. 00223700 00000000          ORI.B #0,D0
  3061. 00223704 00000000          ORI.B #0,D0
  3062. 00223708 00000000          ORI.B #0,D0
  3063. 0022370C 00000000          ORI.B #0,D0
  3064. 00223710 00000000          ORI.B #0,D0
  3065. 00223714 00000000          ORI.B #0,D0
  3066. 00223718 00000000          ORI.B #0,D0
  3067. 0022371C 00000000          ORI.B #0,D0
  3068. 00223720 00000000          ORI.B #0,D0
  3069. 00223724 00000000          ORI.B #0,D0
  3070. 00223728 00000000          ORI.B #0,D0
  3071. 0022372C 00000000          ORI.B #0,D0
  3072. 00223730 00000000          ORI.B #0,D0
  3073. 00223734 00000000          ORI.B #0,D0
  3074. 00223738 00000000          ORI.B #0,D0
  3075. 0022373C 00000000          ORI.B #0,D0
  3076. 00223740 00000000          ORI.B #0,D0
  3077. 00223744 00000000          ORI.B #0,D0
  3078. 00223748 00000000          ORI.B #0,D0
  3079. 0022374C 00000000          ORI.B #0,D0
  3080. 00223750 00000000          ORI.B #0,D0
  3081. 00223754 00000000          ORI.B #0,D0
  3082. 00223758 00000000          ORI.B #0,D0
  3083. 0022375C 00000000          ORI.B #0,D0
  3084. 00223760 00000000          ORI.B #0,D0
  3085. 00223764 00000000          ORI.B #0,D0
  3086. 00223768 00000000          ORI.B #0,D0
  3087. 0022376C 00000000          ORI.B #0,D0
  3088. 00223770 00000000          ORI.B #0,D0
  3089. 00223774 00000000          ORI.B #0,D0
  3090. 00223778 00000000          ORI.B #0,D0
  3091. 0022377C 00000000          ORI.B #0,D0
  3092. 00223780 00000000          ORI.B #0,D0
  3093. 00223784 00000000          ORI.B #0,D0
  3094. 00223788 00000000          ORI.B #0,D0
  3095. 0022378C 00000000          ORI.B #0,D0
  3096. 00223790 00000000          ORI.B #0,D0
  3097. 00223794 00000000          ORI.B #0,D0
  3098. 00223798 00000000          ORI.B #0,D0
  3099. 0022379C 00000000          ORI.B #0,D0
  3100. 002237A0 00000000          ORI.B #0,D0
  3101. 002237A4 00000000          ORI.B #0,D0
  3102. 002237A8 00000000          ORI.B #0,D0
  3103. 002237AC 00000000          ORI.B #0,D0
  3104. 002237B0 00000000          ORI.B #0,D0
  3105. 002237B4 00000000          ORI.B #0,D0
  3106. 002237B8 00000000          ORI.B #0,D0
  3107. 002237BC 00000000          ORI.B #0,D0
  3108. 002237C0 00000000          ORI.B #0,D0
  3109. 002237C4 00000000          ORI.B #0,D0
  3110. 002237C8 00000000          ORI.B #0,D0
  3111. 002237CC 00000000          ORI.B #0,D0
  3112. 002237D0 00000000          ORI.B #0,D0
  3113. 002237D4 00000000          ORI.B #0,D0
  3114. 002237D8 00000000          ORI.B #0,D0
  3115. 002237DC 00000000          ORI.B #0,D0
  3116. 002237E0 00000000          ORI.B #0,D0
  3117. 002237E4 00000000          ORI.B #0,D0
  3118. 002237E8 00000000          ORI.B #0,D0
  3119. 002237EC 00000000          ORI.B #0,D0
  3120. 002237F0 00000000          ORI.B #0,D0
  3121. 002237F4 00000000          ORI.B #0,D0
  3122. 002237F8 00000000          ORI.B #0,D0
  3123. 002237FC 00000000          ORI.B #0,D0
  3124. 00223800 00000000          ORI.B #0,D0
  3125. 00223804 00000000          ORI.B #0,D0
  3126. 00223808 00000000          ORI.B #0,D0
  3127. 0022380C 00000000          ORI.B #0,D0
  3128. 00223810 00000000          ORI.B #0,D0
  3129. 00223814 00000000          ORI.B #0,D0
  3130. 00223818 00000000          ORI.B #0,D0
  3131. 0022381C 00000000          ORI.B #0,D0
  3132. 00223820 00000000          ORI.B #0,D0
  3133. 00223824 00000000          ORI.B #0,D0
  3134. 00223828 00000000          ORI.B #0,D0
  3135. 0022382C 00000000          ORI.B #0,D0
  3136. 00223830 00000000          ORI.B #0,D0
  3137. 00223834 00000000          ORI.B #0,D0
  3138. 00223838 00000000          ORI.B #0,D0
  3139. 0022383C 00000000          ORI.B #0,D0
  3140. 00223840 00000000          ORI.B #0,D0
  3141. 00223844 00000000          ORI.B #0,D0
  3142. 00223848 00000000          ORI.B #0,D0
  3143. 0022384C 00000000          ORI.B #0,D0
  3144. 00223850 00000000          ORI.B #0,D0
  3145. 00223854 00000000          ORI.B #0,D0
  3146. 00223858 00000000          ORI.B #0,D0
  3147. 0022385C 0022385C          ORI.B #92,-(A2)
  3148. 00223860 00C0              DC.W 192 ;".À"
  3149. 00223862 4C42              DC.W 19522 ;"LB"
  3150. 00223864 00FF              DC.W 255 ;".ÿ"
  3151. 00223866 5888              ADDQ.L #4,A0
  3152. 00223868 000002EE          ORI.B #-18,D0
  3153. 0022386C 0008              DC.W 8 ;".."
  3154. 0022386E 8E1C              OR.B (A4)+,D7
  3155. 00223870 0022367C          ORI.B #124,-(A2)
  3156. 00223874 00223678          ORI.B #120,-(A2)
  3157. 00223878 07FF              DC.W 2047 ;".ÿ"
  3158. 0022387A 00FF              DC.W 255 ;".ÿ"
  3159. 0022387C 587900223664      ADDQ.W #4,$223664
  3160. 00223882 000C              DC.W 12 ;".."
  3161. 00223884 FFFF              DC.W 65535 ;"ÿÿ"
  3162. 00223886 FFFF              DC.W 65535 ;"ÿÿ"
  3163. 00223888 FFFF              DC.W 65535 ;"ÿÿ"
  3164. 0022388A FFFF              DC.W 65535 ;"ÿÿ"
  3165. 0022388C 0009              DC.W 9 ;".."
  3166. 0022388E 00000000          ORI.B #0,D0
  3167. 00223892 00000001          ORI.B #1,D0
  3168. 00223896 33E100000000      MOVE.W -(A1),0
  3169. 0022389C FFFF              DC.W 65535 ;"ÿÿ"
  3170. 0022389E FE38              DC.W 65080 ;"þ8"
  3171. 002238A0 3A70              DC.W 14960 ;":p"
  3172. 002238A2 632F              BLS.S $2238D3
  3173. 002238A4 00223868          ORI.B #104,-(A2)
  3174. 002238A8 00FF              DC.W 255 ;".ÿ"
  3175. 002238AA 58D6              SVC.B (A6)
  3176. 002238AC 00FF              DC.W 255 ;".ÿ"
  3177. 002238AE 5824              ADDQ.B #4,-(A4)
  3178. 002238B0 00000009          ORI.B #9,D0
  3179. 002238B4 0008              DC.W 8 ;".."
  3180. 002238B6 8E1C              OR.B (A4)+,D7
  3181. 002238B8 0000000F          ORI.B #15,D0
  3182. 002238BC 00000000          ORI.B #0,D0
  3183. 002238C0 002238B0          ORI.B #-80,-(A2)
  3184. 002238C4 00FF              DC.W 255 ;".ÿ"
  3185. 002238C6 587600FF          ADDQ.W #4,-1(A6,D0.W)
  3186. 002238CA 48C0              EXT.L D0
  3187. 002238CC 0008              DC.W 8 ;".."
  3188. 002238CE 8E1C              OR.B (A4)+,D7
  3189. 002238D0 00000000          ORI.B #0,D0
  3190. 002238D4 00000000          ORI.B #0,D0
  3191. 002238D8 00000000          ORI.B #0,D0
  3192. 002238DC FFFF              DC.W 65535 ;"ÿÿ"
  3193. 002238DE FE38              DC.W 65080 ;"þ8"
  3194. 002238E0 00000000          ORI.B #0,D0
  3195. 002238E4 00000000          ORI.B #0,D0
  3196. 002238E8 00000000          ORI.B #0,D0
  3197. 002238EC 00223870          ORI.B #112,-(A2)
  3198. 002238F0 00000000          ORI.B #0,D0
  3199. 002238F4 00000000          ORI.B #0,D0
  3200. 002238F8 00000000          ORI.B #0,D0
  3201. 002238FC 00000000          ORI.B #0,D0
  3202. 00223900 00000000          ORI.B #0,D0
  3203. 00223904 00000000          ORI.B #0,D0
  3204. 00223908 00000000          ORI.B #0,D0
  3205. 0022390C 00000000          ORI.B #0,D0
  3206. 00223910 00000000          ORI.B #0,D0
  3207. 00223914 00000000          ORI.B #0,D0
  3208. 00223918 00000000          ORI.B #0,D0
  3209. 0022391C 00000000          ORI.B #0,D0
  3210. 00223920 00000000          ORI.B #0,D0
  3211. 00223924 00000000          ORI.B #0,D0
  3212. 00223928 00000000          ORI.B #0,D0
  3213. 0022392C 00000000          ORI.B #0,D0
  3214. 00223930 00000000          ORI.B #0,D0
  3215. 00223934 00000000          ORI.B #0,D0
  3216. 00223938 00000000          ORI.B #0,D0
  3217. 0022393C 00000000          ORI.B #0,D0
  3218. 00223940 00000000          ORI.B #0,D0
  3219. 00223944 00000000          ORI.B #0,D0
  3220. 00223948 00000000          ORI.B #0,D0
  3221. 0022394C 00000000          ORI.B #0,D0
  3222. 00223950 00000000          ORI.B #0,D0
  3223. 00223954 00000000          ORI.B #0,D0
  3224. 00223958 00000000          ORI.B #0,D0
  3225. 0022395C 00000000          ORI.B #0,D0
  3226. 00223960 00000000          ORI.B #0,D0
  3227. 00223964 00000000          ORI.B #0,D0
  3228. 00223968 00000000          ORI.B #0,D0
  3229. 0022396C 00000000          ORI.B #0,D0
  3230. 00223970 00000000          ORI.B #0,D0
  3231. 00223974 00000000          ORI.B #0,D0
  3232. 00223978 00000000          ORI.B #0,D0
  3233. 0022397C 00000000          ORI.B #0,D0
  3234. 00223980 00000000          ORI.B #0,D0
  3235. 00223984 00000000          ORI.B #0,D0
  3236. 00223988 00000000          ORI.B #0,D0
  3237. 0022398C 00000000          ORI.B #0,D0
  3238. 00223990 00000000          ORI.B #0,D0
  3239. 00223994 00000000          ORI.B #0,D0
  3240. 00223998 00000000          ORI.B #0,D0
  3241. 0022399C 00223888          ORI.B #-120,-(A2)
  3242. 002239A0 00FF              DC.W 255 ;".ÿ"
  3243. 002239A2 5C18              ADDQ.B #6,(A0)+
  3244. 002239A4 00FF              DC.W 255 ;".ÿ"
  3245. 002239A6 80280008          OR.B 8(A0),D0
  3246. 002239AA 8E27              OR.B -(A7),D7
  3247. 002239AC 00000008          ORI.B #8,D0
  3248. 002239B0 FFFF              DC.W 65535 ;"ÿÿ"
  3249. 002239B2 FFFE              DC.W 65534 ;"ÿþ"
  3250. 002239B4 00000000          ORI.B #0,D0
  3251. 002239B8 0020A42C          ORI.B #44,-(A0)
  3252. 002239BC 0008              DC.W 8 ;".."
  3253. 002239BE 0008              DC.W 8 ;".."
  3254. 002239C0 002239A8          ORI.B #-88,-(A2)
  3255. 002239C4 00FF              DC.W 255 ;".ÿ"
  3256. 002239C6 80D4              DIVU (A4),D0
  3257. 002239C8 00FF              DC.W 255 ;".ÿ"
  3258. 002239CA 5408              ADDQ.B #2,A0
  3259. 002239CC 00000002          ORI.B #2,D0
  3260. 002239D0 0008              DC.W 8 ;".."
  3261. 002239D2 0008              DC.W 8 ;".."
  3262. 002239D4 0020A42C          ORI.B #44,-(A0)
  3263. 002239D8 000000CD          ORI.B #-51,D0
  3264. 002239DC 003F              DC.W 63 ;".?"
  3265. 002239DE D5C3              ADDA.L D3,A2
  3266. 002239E0 00000000          ORI.B #0,D0
  3267. 002239E4 00000000          ORI.B #0,D0
  3268. 002239E8 003F              DC.W 63 ;".?"
  3269. 002239EA D5C5              ADDA.L D5,A2
  3270. 002239EC 0008              DC.W 8 ;".."
  3271. 002239EE 8E7C0F69          OR.W #3945,D7
  3272. 002239F2 6E20              BGT.S $223A14
  3273. 002239F4 756E              DC.W 30062 ;"un"
  3274. 002239F6 6974              BVS.S $223A6C
  3275. 002239F8 20305820          MOVE.L 32(A0,D5.L),D0
  3276. 002239FC 00212100          ORI.B #0,-(A1)
  3277. 00223A00 00000000          ORI.B #0,D0
  3278. 00223A04 00000000          ORI.B #0,D0
  3279. 00223A08 00000000          ORI.B #0,D0
  3280. 00223A0C 00000000          ORI.B #0,D0
  3281. 00223A10 FFFF              DC.W 65535 ;"ÿÿ"
  3282. 00223A12 FFFF              DC.W 65535 ;"ÿÿ"
  3283. 00223A14 002239CC          ORI.B #-52,-(A2)
  3284. 00223A18 00FF              DC.W 255 ;".ÿ"
  3285. 00223A1A 5462              ADDQ.W #2,-(A2)
  3286. 00223A1C 00FF              DC.W 255 ;".ÿ"
  3287. 00223A1E 5284              ADDQ.L #1,D4
  3288. 00223A20 003F              DC.W 63 ;".?"
  3289. 00223A22 D5C5              ADDA.L D5,A2
  3290. 00223A24 0008              DC.W 8 ;".."
  3291. 00223A26 8E7C003F          OR.W #63,D7
  3292. 00223A2A D5C5              ADDA.L D5,A2
  3293. 00223A2C 0008              DC.W 8 ;".."
  3294. 00223A2E 8E7C0000          OR.W #0,D7
  3295. 00223A32 00000008          ORI.B #8,D0
  3296. 00223A36 8E730000          OR.W 0(A3,D0.W),D7
  3297. 00223A3A 0008              DC.W 8 ;".."
  3298. 00223A3C 00000000          ORI.B #0,D0
  3299. 00223A40 00000000          ORI.B #0,D0
  3300. 00223A44 00FF              DC.W 255 ;".ÿ"
  3301. 00223A46 6AE4              BPL.S $223A2C
  3302. 00223A48 00FF              DC.W 255 ;".ÿ"
  3303. 00223A4A 6A50              BPL.S $223A9C
  3304. 00223A4C 00000053          ORI.B #83,D0
  3305. 00223A50 00000073          ORI.B #115,D0
  3306. 00223A54 00000053          ORI.B #83,D0
  3307. 00223A58 00223A4C          ORI.B #76,-(A2)
  3308. 00223A5C 00FF              DC.W 255 ;".ÿ"
  3309. 00223A5E 6A68              BPL.S $223AC8
  3310. 00223A60 00FF              DC.W 255 ;".ÿ"
  3311. 00223A62 6A30              BPL.S $223A94
  3312. 00223A64 00000073          ORI.B #115,D0
  3313. 00223A68 00000061          ORI.B #97,D0
  3314. 00223A6C 00000053          ORI.B #83,D0
  3315. 00223A70 00000073          ORI.B #115,D0
  3316. 00223A74 00000000          ORI.B #0,D0
  3317. 00223A78 00000000          ORI.B #0,D0
  3318. 00223A7C 00000000          ORI.B #0,D0
  3319. 00223A80 00000000          ORI.B #0,D0
  3320. 00223A84 00000000          ORI.B #0,D0
  3321. 00223A88 00000000          ORI.B #0,D0
  3322. 00223A8C 00000000          ORI.B #0,D0
  3323. 00223A90 00000000          ORI.B #0,D0
  3324. 00223A94 00000000          ORI.B #0,D0
  3325. 00223A98 00000000          ORI.B #0,D0
  3326. 00223A9C 00000000          ORI.B #0,D0
  3327. 00223AA0 00000000          ORI.B #0,D0
  3328. 00223AA4 00000000          ORI.B #0,D0
  3329. 00223AA8 00000000          ORI.B #0,D0
  3330. 00223AAC 00000000          ORI.B #0,D0
  3331. 00223AB0 00000000          ORI.B #0,D0
  3332. 00223AB4 00000000          ORI.B #0,D0
  3333. 00223AB8 00000000          ORI.B #0,D0
  3334. 00223ABC 00000000          ORI.B #0,D0
  3335. 00223AC0 00000000          ORI.B #0,D0
  3336. 00223AC4 00000000          ORI.B #0,D0
  3337. 00223AC8 00000000          ORI.B #0,D0
  3338. 00223ACC 00000000          ORI.B #0,D0
  3339. 00223AD0 00000000          ORI.B #0,D0
  3340. 00223AD4 00000000          ORI.B #0,D0
  3341. 00223AD8 00000000          ORI.B #0,D0
  3342. 00223ADC 00000000          ORI.B #0,D0
  3343. 00223AE0 00000000          ORI.B #0,D0
  3344. 00223AE4 00000000          ORI.B #0,D0
  3345. 00223AE8 00000000          ORI.B #0,D0
  3346. 00223AEC 00000000          ORI.B #0,D0
  3347. 00223AF0 00000000          ORI.B #0,D0
  3348. 00223AF4 00000000          ORI.B #0,D0
  3349. 00223AF8 00000000          ORI.B #0,D0
  3350. 00223AFC 00000000          ORI.B #0,D0
  3351. 00223B00 00000000          ORI.B #0,D0
  3352. 00223B04 00000000          ORI.B #0,D0
  3353. 00223B08 00000000          ORI.B #0,D0
  3354. 00223B0C 00000000          ORI.B #0,D0
  3355. 00223B10 00000000          ORI.B #0,D0
  3356. 00223B14 00000000          ORI.B #0,D0
  3357. 00223B18 00000000          ORI.B #0,D0
  3358. 00223B1C 00000000          ORI.B #0,D0
  3359. 00223B20 00000000          ORI.B #0,D0
  3360. 00223B24 00000000          ORI.B #0,D0
  3361. 00223B28 00000000          ORI.B #0,D0
  3362. 00223B2C 00000000          ORI.B #0,D0
  3363. 00223B30 00000000          ORI.B #0,D0
  3364. 00223B34 00000000          ORI.B #0,D0
  3365. 00223B38 00000000          ORI.B #0,D0
  3366. 00223B3C 00000000          ORI.B #0,D0
  3367. 00223B40 00000000          ORI.B #0,D0
  3368. 00223B44 00000000          ORI.B #0,D0
  3369. 00223B48 00000000          ORI.B #0,D0
  3370. 00223B4C 00000000          ORI.B #0,D0
  3371. 00223B50 00000000          ORI.B #0,D0
  3372. 00223B54 00000000          ORI.B #0,D0
  3373. 00223B58 00000000          ORI.B #0,D0
  3374. 00223B5C 00000000          ORI.B #0,D0
  3375. 00223B60 00000000          ORI.B #0,D0
  3376. 00223B64 00000000          ORI.B #0,D0
  3377. 00223B68 00000000          ORI.B #0,D0
  3378. 00223B6C 00000000          ORI.B #0,D0
  3379. 00223B70 00000000          ORI.B #0,D0
  3380. 00223B74 00000000          ORI.B #0,D0
  3381. 00223B78 00000000          ORI.B #0,D0
  3382. 00223B7C 00000000          ORI.B #0,D0
  3383. 00223B80 00000000          ORI.B #0,D0
  3384. 00223B84 00000000          ORI.B #0,D0
  3385. 00223B88 00000000          ORI.B #0,D0
  3386. 00223B8C 00000000          ORI.B #0,D0
  3387. 00223B90 00000000          ORI.B #0,D0
  3388. 00223B94 00000000          ORI.B #0,D0
  3389. 00223B98 00000000          ORI.B #0,D0
  3390. 00223B9C 00000000          ORI.B #0,D0
  3391. 00223BA0 00000000          ORI.B #0,D0
  3392. 00223BA4 00000000          ORI.B #0,D0
  3393. 00223BA8 00000000          ORI.B #0,D0
  3394. 00223BAC 00000000          ORI.B #0,D0
  3395. 00223BB0 00000000          ORI.B #0,D0
  3396. 00223BB4 00000000          ORI.B #0,D0
  3397. 00223BB8 00000000          ORI.B #0,D0
  3398. 00223BBC 00000000          ORI.B #0,D0
  3399. 00223BC0 00000000          ORI.B #0,D0
  3400. 00223BC4 00000000          ORI.B #0,D0
  3401. 00223BC8 00000000          ORI.B #0,D0
  3402. 00223BCC 00000000          ORI.B #0,D0
  3403. 00223BD0 00000000          ORI.B #0,D0
  3404. 00223BD4 00000000          ORI.B #0,D0
  3405. 00223BD8 00000000          ORI.B #0,D0
  3406. 00223BDC 00000000          ORI.B #0,D0
  3407. 00223BE0 00000000          ORI.B #0,D0
  3408. 00223BE4 00000000          ORI.B #0,D0
  3409. 00223BE8 00000000          ORI.B #0,D0
  3410. 00223BEC 00000000          ORI.B #0,D0
  3411. 00223BF0 00000000          ORI.B #0,D0
  3412. 00223BF4 00000000          ORI.B #0,D0
  3413. 00223BF8 00000000          ORI.B #0,D0
  3414. 00223BFC 00000000          ORI.B #0,D0
  3415. 00223C00 00000000          ORI.B #0,D0
  3416. 00223C04 00000000          ORI.B #0,D0
  3417. 00223C08 00000000          ORI.B #0,D0
  3418. 00223C0C 00000000          ORI.B #0,D0
  3419. 00223C10 00000000          ORI.B #0,D0
  3420. 00223C14 00000000          ORI.B #0,D0
  3421. 00223C18 00000000          ORI.B #0,D0
  3422. 00223C1C 00000000          ORI.B #0,D0
  3423. 00223C20 00000000          ORI.B #0,D0
  3424. 00223C24 00000000          ORI.B #0,D0
  3425. 00223C28 00000000          ORI.B #0,D0
  3426. 00223C2C 00000000          ORI.B #0,D0
  3427. 00223C30 00000000          ORI.B #0,D0
  3428. 00223C34 00000000          ORI.B #0,D0
  3429. 00223C38 00000000          ORI.B #0,D0
  3430. 00223C3C 00000000          ORI.B #0,D0
  3431. 00223C40 00000000          ORI.B #0,D0
  3432. 00223C44 00000000          ORI.B #0,D0
  3433. 00223C48 00000000          ORI.B #0,D0
  3434. 00223C4C 00000000          ORI.B #0,D0
  3435. 00223C50 00000000          ORI.B #0,D0
  3436. 00223C54 00000000          ORI.B #0,D0
  3437. 00223C58 00000000          ORI.B #0,D0
  3438. 00223C5C 00000000          ORI.B #0,D0
  3439. 00223C60 00000000          ORI.B #0,D0
  3440. 00223C64 00000000          ORI.B #0,D0
  3441. 00223C68 00000000          ORI.B #0,D0
  3442. 00223C6C 00000000          ORI.B #0,D0
  3443. 00223C70 00000000          ORI.B #0,D0
  3444. 00223C74 00000000          ORI.B #0,D0
  3445. 00223C78 00000000          ORI.B #0,D0
  3446. 00223C7C 00000000          ORI.B #0,D0
  3447. 00223C80 00000000          ORI.B #0,D0
  3448. 00223C84 00000000          ORI.B #0,D0
  3449. 00223C88 00000000          ORI.B #0,D0
  3450. 00223C8C 00000000          ORI.B #0,D0
  3451. 00223C90 00000000          ORI.B #0,D0
  3452. 00223C94 00000000          ORI.B #0,D0
  3453. 00223C98 00000000          ORI.B #0,D0
  3454. 00223C9C 00000000          ORI.B #0,D0
  3455. 00223CA0 00000000          ORI.B #0,D0
  3456. 00223CA4 00000000          ORI.B #0,D0
  3457. 00223CA8 00000000          ORI.B #0,D0
  3458. 00223CAC 00000000          ORI.B #0,D0
  3459. 00223CB0 00000000          ORI.B #0,D0
  3460. 00223CB4 00000000          ORI.B #0,D0
  3461. 00223CB8 00000000          ORI.B #0,D0
  3462. 00223CBC 00000000          ORI.B #0,D0
  3463. 00223CC0 00000000          ORI.B #0,D0
  3464. 00223CC4 00000000          ORI.B #0,D0
  3465. 00223CC8 00000000          ORI.B #0,D0
  3466. 00223CCC 00000000          ORI.B #0,D0
  3467. 00223CD0 00000000          ORI.B #0,D0
  3468. 00223CD4 00000000          ORI.B #0,D0
  3469. 00223CD8 00000000          ORI.B #0,D0
  3470. 00223CDC 00000000          ORI.B #0,D0
  3471. 00223CE0 00000000          ORI.B #0,D0
  3472. 00223CE4 00000000          ORI.B #0,D0
  3473. 00223CE8 00000000          ORI.B #0,D0
  3474. 00223CEC 00000000          ORI.B #0,D0
  3475. 00223CF0 00000000          ORI.B #0,D0
  3476. 00223CF4 00000000          ORI.B #0,D0
  3477. 00223CF8 00000000          ORI.B #0,D0
  3478. 00223CFC 00000000          ORI.B #0,D0
  3479. 00223D00 00000000          ORI.B #0,D0
  3480. 00223D04 00000000          ORI.B #0,D0
  3481. 00223D08 00000000          ORI.B #0,D0
  3482. 00223D0C 00000000          ORI.B #0,D0
  3483. 00223D10 00000000          ORI.B #0,D0
  3484. 00223D14 00000000          ORI.B #0,D0
  3485. 00223D18 00000000          ORI.B #0,D0
  3486. 00223D1C 00000000          ORI.B #0,D0
  3487. 00223D20 00000000          ORI.B #0,D0
  3488. 00223D24 00000000          ORI.B #0,D0
  3489. 00223D28 00000000          ORI.B #0,D0
  3490. 00223D2C 00000000          ORI.B #0,D0
  3491. 00223D30 00000000          ORI.B #0,D0
  3492. 00223D34 00000000          ORI.B #0,D0
  3493. 00223D38 00000000          ORI.B #0,D0
  3494. 00223D3C 00000000          ORI.B #0,D0
  3495. 00223D40 00000000          ORI.B #0,D0
  3496. 00223D44 00000000          ORI.B #0,D0
  3497. 00223D48 00000000          ORI.B #0,D0
  3498. 00223D4C 00000000          ORI.B #0,D0
  3499. 00223D50 00000000          ORI.B #0,D0
  3500. 00223D54 00000000          ORI.B #0,D0
  3501. 00223D58 00000000          ORI.B #0,D0
  3502. 00223D5C 00000000          ORI.B #0,D0
  3503. 00223D60 00000000          ORI.B #0,D0
  3504. 00223D64 00000000          ORI.B #0,D0
  3505. 00223D68 00000000          ORI.B #0,D0
  3506. 00223D6C 00000000          ORI.B #0,D0
  3507. 00223D70 00000000          ORI.B #0,D0
  3508. 00223D74 00000000          ORI.B #0,D0
  3509. 00223D78 00000000          ORI.B #0,D0
  3510. 00223D7C 00000000          ORI.B #0,D0
  3511. 00223D80 00000000          ORI.B #0,D0
  3512. 00223D84 00000000          ORI.B #0,D0
  3513. 00223D88 00000000          ORI.B #0,D0
  3514. 00223D8C 00000000          ORI.B #0,D0
  3515. 00223D90 00000000          ORI.B #0,D0
  3516. 00223D94 00000000          ORI.B #0,D0
  3517. 00223D98 00000000          ORI.B #0,D0
  3518. 00223D9C 000000FC          ORI.B #-4,D0
  3519. 00223DA0 08B800100000      BCLR #16,0
  3520. 00223DA6 00000000          ORI.B #0,D0
  3521. 00223DAA 000000FF          ORI.B #-1,D0
  3522. 00223DAE 587900000000      ADDQ.W #4,0
  3523. 00223DB4 00000000          ORI.B #0,D0
  3524. 00223DB8 00223870          ORI.B #112,-(A2)
  3525. 00223DBC 00223664          ORI.B #100,-(A2)
  3526. 00223DC0 00000000          ORI.B #0,D0
  3527. 00223DC4 00C0              DC.W 192 ;".À"
  3528. 00223DC6 23560022          MOVE.L (A6),34(A1)
  3529. 00223DCA 38700022          MOVEA.W 34(A0,D0.W),A4
  3530. 00223DCE 387000C0          MOVEA.W -64(A0,D0.W),A4
  3531. 00223DD2 00FC              DC.W 252 ;".ü"
  3532. 00223DD4 08B8000000C0      BCLR #0,192
  3533. 00223DDA 142E0000          MOVE.B 0(A6),D2
  3534. 00223DDE 00000000          ORI.B #0,D0
  3535. 00223DE2 00000000          ORI.B #0,D0
  3536. 00223DE6 00000000          ORI.B #0,D0
  3537. 00223DEA 00000022          ORI.B #34,D0
  3538. 00223DEE 38700022          MOVEA.W 34(A0,D0.W),A4
  3539. 00223DF2 3664              MOVEA.W -(A4),A3
  3540. 00223DF4 FFFF              DC.W 65535 ;"ÿÿ"
  3541. 00223DF6 00FF              DC.W 255 ;".ÿ"
  3542. 00223DF8 44AE0014          NEG.L 20(A6)
  3543. 00223DFC 00000000          ORI.B #0,D0
  3544. 00223E00 00000000          ORI.B #0,D0
  3545. 00223E04 00000000          ORI.B #0,D0
  3546. 00223E08 00000000          ORI.B #0,D0
  3547. 00223E0C 00000000          ORI.B #0,D0
  3548. 00223E10 00FC              DC.W 252 ;".ü"
  3549. 00223E12 06C2              DC.W 1730 ;".Â"
  3550. 00223E14 00FC              DC.W 252 ;".ü"
  3551. 00223E16 06C8              DC.W 1736 ;".È"
  3552. 00223E18 00FE              DC.W 254 ;".þ"
  3553. 00223E1A 4DAA00C0          CHK.W 192(A2),D6
  3554. 00223E1E 5062              ADDQ.W #8,-(A2)
  3555. 00223E20 00FF              DC.W 255 ;".ÿ"
  3556. 00223E22 44B400FF          NEG.L -1(A4,D0.W)
  3557. 00223E26 48D00000          MOVEM.L ,(A0)
  3558. 00223E2A 00000022          ORI.B #34,D0
  3559. 00223E2E 38CC              MOVE.W A4,(A4)+
  3560. 00223E30 00FF              DC.W 255 ;".ÿ"
  3561. 00223E32 44B400FF          NEG.L -1(A4,D0.W)
  3562. 00223E36 44A80000          NEG.L 0(A0)
  3563. 00223E3A FFFF              DC.W 65535 ;"ÿÿ"
  3564. 00223E3C 00000000          ORI.B #0,D0
  3565. 00223E40 000000FC          ORI.B #-4,D0
  3566. 00223E44 08B800100022      BCLR #16,34
  3567. 00223E4A CB780000          AND.W D5,0
  3568. 00223E4E 00000000          ORI.B #0,D0
  3569. 00223E52 FFFF              DC.W 65535 ;"ÿÿ"
  3570. 00223E54 00000000          ORI.B #0,D0
  3571. 00223E58 00000000          ORI.B #0,D0
  3572. 00223E5C 00000000          ORI.B #0,D0
  3573. 00223E60 00000000          ORI.B #0,D0
  3574. 00223E64 00000000          ORI.B #0,D0
  3575. 00223E68 00000000          ORI.B #0,D0
  3576. 00223E6C 00223608          ORI.B #8,-(A2)
  3577. 00223E70 0021579A          ORI.B #-102,-(A1)
  3578. 00223E74 00C0              DC.W 192 ;".À"
  3579. 00223E76 1ED6              MOVE.B (A6),(A7)+
  3580. 00223E78 002017E0          ORI.B #-32,-(A0)
  3581. 00223E7C 00C0              DC.W 192 ;".À"
  3582. 00223E7E 024000C0          ANDI.W #192,D0
  3583. 00223E82 0276              DC.W 630 ;".v"
  3584. 00223E84 00FC              DC.W 252 ;".ü"
  3585. 00223E86 1F10              MOVE.B (A0),-(A7)
  3586. 00223E88 00222416          ORI.B #22,-(A2)
  3587. 00223E8C 00FF              DC.W 255 ;".ÿ"
  3588. 00223E8E 47EE0000          LEA 0(A6),A3
  3589. 00223E92 07D0              BSET D3,(A0)
  3590. 00223E94 5A61              ADDQ.W #5,-(A1)
  3591. 00223E96 7068              MOVEQ #104,D0
  3592. 00223E98 6F64              BLE.S $223EFE
  3593. 00223E9A 5365              SUBQ.W #1,-(A5)
  3594. 00223E9C 7276              MOVEQ #118,D1
  3595. 00223E9E 6963              BVS.S $223F03
  3596. 00223EA0 6554              BCS.S $223EF6
  3597. 00223EA2 6173              BSR.S $223F17
  3598. 00223EA4 6B000000          BMI $223EA6
  3599. 00223EA8 00001F88          ORI.B #-120,D0
  3600. 00223EAC 0008              DC.W 8 ;".."
  3601. 00223EAE 978D              SUBX.L -(A5),-(A3)
  3602. 00223EB0 4EFA11DA          JMP $22508C(PC)
  3603. 00223EB4 414D              DC.W 16717 ;"AM"
  3604. 00223EB6 6F75              BLE.S $223F2D
  3605. 00223EB8 7365              DC.W 29541 ;"se"
  3606. 00223EBA 5072              DC.W 20594 ;"Pr"
  3607. 00223EBC 6F63              BLE.S $223F21
  3608. 00223EBE 6573              BCS.S $223F33
  3609. 00223EC0 7300              DC.W 29440 ;"s."
  3610. 00223EC2 4E55FF7C          LINK A5,#-132
  3611. 00223EC6 42ADFFFC          CLR.L -4(A5)
  3612. 00223ECA 4AAD0008          TST.L 8(A5)
  3613. 00223ECE 672E              BEQ.S $223EFE
  3614. 00223ED0 2F2D0014          MOVE.L 20(A5),-(A7)
  3615. 00223ED4 2F2D0010          MOVE.L 16(A5),-(A7)
  3616. 00223ED8 2F2D000C          MOVE.L 12(A5),-(A7)
  3617. 00223EDC 2F2D0008          MOVE.L 8(A5),-(A7)
  3618. 00223EE0 486DFF7C          PEA -132(A5)
  3619. 00223EE4 4EBA14F6          JSR $2253DC(PC)
  3620. 00223EE8 4FEF0014          LEA 20(A7),A7
  3621. 00223EEC 486DFF7C          PEA -132(A5)
  3622. 00223EF0 4EBA0C58          JSR $224B4A(PC)
  3623. 00223EF4 584F              ADDQ.W #4,A7
  3624. 00223EF6 2B7C0000000AFFFC  MOVE.L #10,-4(A5)
  3625. 00223EFE 4A6C8076          TST.W -32650(A4)
  3626. 00223F02 6704              BEQ.S $223F08
  3627. 00223F04 4EBA024C          JSR $224152(PC)
  3628. 00223F08 4AAC8072          TST.L -32654(A4)
  3629. 00223F0C 670A              BEQ.S $223F18
  3630. 00223F0E 2F2C806E          MOVE.L -32658(A4),-(A7)
  3631. 00223F12 4EBA1BF4          JSR $225B08(PC)
  3632. 00223F16 584F              ADDQ.W #4,A7
  3633. 00223F18 4AAC806E          TST.L -32658(A4)
  3634. 00223F1C 670A              BEQ.S $223F28
  3635. 00223F1E 2F2C806E          MOVE.L -32658(A4),-(A7)
  3636. 00223F22 4EBA1D00          JSR $225C24(PC)
  3637. 00223F26 584F              ADDQ.W #4,A7
  3638. 00223F28 4AAC8030          TST.L -32720(A4)
  3639. 00223F2C 670A              BEQ.S $223F38
  3640. 00223F2E 2F2C8030          MOVE.L -32720(A4),-(A7)
  3641. 00223F32 4EBA1C7C          JSR $225BB0(PC)
  3642. 00223F36 584F              ADDQ.W #4,A7
  3643. 00223F38 4AAC806A          TST.L -32662(A4)
  3644. 00223F3C 670A              BEQ.S $223F48
  3645. 00223F3E 2F2C806A          MOVE.L -32662(A4),-(A7)
  3646. 00223F42 4EBA1C6C          JSR $225BB0(PC)
  3647. 00223F46 584F              ADDQ.W #4,A7
  3648. 00223F48 4AAC8062          TST.L -32670(A4)
  3649. 00223F4C 6704              BEQ.S $223F52
  3650. 00223F4E 4EBA0A8A          JSR $2249DA(PC)
  3651. 00223F52 4AAC8020          TST.L -32736(A4)
  3652. 00223F56 6722              BEQ.S $223F7A
  3653. 00223F58 4AAC802C          TST.L -32724(A4)
  3654. 00223F5C 671C              BEQ.S $223F7A
  3655. 00223F5E 2F2C802C          MOVE.L -32724(A4),-(A7)
  3656. 00223F62 4EBA1E56          JSR $225DBA(PC)
  3657. 00223F66 584F              ADDQ.W #4,A7
  3658. 00223F68 2F2C802C          MOVE.L -32724(A4),-(A7)
  3659. 00223F6C 4EBA1DB8          JSR $225D26(PC)
  3660. 00223F70 584F              ADDQ.W #4,A7
  3661. 00223F72 42A7              CLR.L -(A7)
  3662. 00223F74 4EBA0742          JSR $2246B8(PC)
  3663. 00223F78 584F              ADDQ.W #4,A7
  3664. 00223F7A 4AAC8024          TST.L -32732(A4)
  3665. 00223F7E 670A              BEQ.S $223F8A
  3666. 00223F80 2F2C8020          MOVE.L -32736(A4),-(A7)
  3667. 00223F84 4EBA1B82          JSR $225B08(PC)
  3668. 00223F88 584F              ADDQ.W #4,A7
  3669. 00223F8A 4AAC8020          TST.L -32736(A4)
  3670. 00223F8E 670A              BEQ.S $223F9A
  3671. 00223F90 2F2C8020          MOVE.L -32736(A4),-(A7)
  3672. 00223F94 4EBA1C8E          JSR $225C24(PC)
  3673. 00223F98 584F              ADDQ.W #4,A7
  3674. 00223F9A 4AAC802C          TST.L -32724(A4)
  3675. 00223F9E 670A              BEQ.S $223FAA
  3676. 00223FA0 2F2C802C          MOVE.L -32724(A4),-(A7)
  3677. 00223FA4 4EBA1C0A          JSR $225BB0(PC)
  3678. 00223FA8 584F              ADDQ.W #4,A7
  3679. 00223FAA 4AAC805A          TST.L -32678(A4)
  3680. 00223FAE 670A              BEQ.S $223FBA
  3681. 00223FB0 2F2C805A          MOVE.L -32678(A4),-(A7)
  3682. 00223FB4 4EBA1B5E          JSR $225B14(PC)
  3683. 00223FB8 584F              ADDQ.W #4,A7
  3684. 00223FBA 4AAC805E          TST.L -32674(A4)
  3685. 00223FBE 670A              BEQ.S $223FCA
  3686. 00223FC0 2F2C805E          MOVE.L -32674(A4),-(A7)
  3687. 00223FC4 4EBA1B4E          JSR $225B14(PC)
  3688. 00223FC8 584F              ADDQ.W #4,A7
  3689. 00223FCA 2F2DFFFC          MOVE.L -4(A5),-(A7)
  3690. 00223FCE 4EBA18EE          JSR $2258BE(PC)
  3691. 00223FD2 584F              ADDQ.W #4,A7
  3692. 00223FD4 4E5D              UNLK A5
  3693. 00223FD6 4E75              RTS
  3694.  
  3695.  
  3696. 00223FD8 4E55FFFC          LINK A5,#-4
  3697. 00223FDC 42A7              CLR.L -(A7)
  3698. 00223FDE 487A00CA          PEA $2240AA(PC)
  3699. 00223FE2 4EBA1B40          JSR $225B24(PC)
  3700. 00223FE6 504F              ADDQ.W #8,A7
  3701. 00223FE8 2940806A          MOVE.L D0,-32662(A4)
  3702. 00223FEC 660A              BNE.S $223FF8
  3703. 00223FEE 487A00C9          PEA $2240B9(PC)
  3704. 00223FF2 4EBAFECE          JSR $223EC2(PC)
  3705. 00223FF6 584F              ADDQ.W #4,A7
  3706. 00223FF8 2F2C806A          MOVE.L -32662(A4),-(A7)
  3707. 00223FFC 4EBA1C10          JSR $225C0E(PC)
  3708. 00224000 584F              ADDQ.W #4,A7
  3709. 00224002 2940806E          MOVE.L D0,-32658(A4)
  3710. 00224006 660A              BNE.S $224012
  3711. 00224008 487A00C1          PEA $2240CB(PC)
  3712. 0022400C 4EBAFEB4          JSR $223EC2(PC)
  3713. 00224010 584F              ADDQ.W #4,A7
  3714. 00224012 42A7              CLR.L -(A7)
  3715. 00224014 2F2C806E          MOVE.L -32658(A4),-(A7)
  3716. 00224018 42A7              CLR.L -(A7)
  3717. 0022401A 487A00CE          PEA $2240EA(PC)
  3718. 0022401E 4EBA1D28          JSR $225D48(PC)
  3719. 00224022 4FEF0010          LEA 16(A7),A7
  3720. 00224026 B0BC00000000      CMP.L #0,D0
  3721. 0022402C 57C0              SEQ.B D0
  3722. 0022402E C0BC00000001      AND.L #1,D0
  3723. 00224034 29408072          MOVE.L D0,-32654(A4)
  3724. 00224038 4AAC8072          TST.L -32654(A4)
  3725. 0022403C 660A              BNE.S $224048
  3726. 0022403E 487A00B7          PEA $2240F7(PC)
  3727. 00224042 4EBAFE7E          JSR $223EC2(PC)
  3728. 00224046 584F              ADDQ.W #4,A7
  3729. 00224048 206C806E          MOVEA.L -32658(A4),A0
  3730. 0022404C 316D000A001C      MOVE.W 10(A5),28(A0)
  3731. 00224052 41EC8242          LEA -32190(A4),A0
  3732. 00224056 226C806E          MOVEA.L -32658(A4),A1
  3733. 0022405A 23480028          MOVE.L A0,40(A1)
  3734. 0022405E 2F2C806E          MOVE.L -32658(A4),-(A7)
  3735. 00224062 4EBA1C64          JSR $225CC8(PC)
  3736. 00224066 584F              ADDQ.W #4,A7
  3737. 00224068 2B40FFFC          MOVE.L D0,-4(A5)
  3738. 0022406C 670E              BEQ.S $22407C
  3739. 0022406E 2F2DFFFC          MOVE.L -4(A5),-(A7)
  3740. 00224072 487A009D          PEA $224111(PC)
  3741. 00224076 4EBAFE4A          JSR $223EC2(PC)
  3742. 0022407A 504F              ADDQ.W #8,A7
  3743. 0022407C 2F2C806E          MOVE.L -32658(A4),-(A7)
  3744. 00224080 4EBA1A86          JSR $225B08(PC)
  3745. 00224084 584F              ADDQ.W #4,A7
  3746. 00224086 42AC8072          CLR.L -32654(A4)
  3747. 0022408A 2F2C806E          MOVE.L -32658(A4),-(A7)
  3748. 0022408E 4EBA1B94          JSR $225C24(PC)
  3749. 00224092 584F              ADDQ.W #4,A7
  3750. 00224094 42AC806E          CLR.L -32658(A4)
  3751. 00224098 2F2C806A          MOVE.L -32662(A4),-(A7)
  3752. 0022409C 4EBA1B12          JSR $225BB0(PC)
  3753. 002240A0 584F              ADDQ.W #4,A7
  3754. 002240A2 42AC806A          CLR.L -32662(A4)
  3755. 002240A6 4E5D              UNLK A5
  3756. 002240A8 4E75              RTS
  3757. 002240AA 414D              DC.W 16717 ;"AM"
  3758. 002240AC 6F75              BLE.S $224123
  3759. 002240AE 7365              DC.W 29541 ;"se"
  3760. 002240B0 4B65              DC.W 19301 ;"Ke"
  3761. 002240B2 7957              DC.W 31063 ;"yW"
  3762. 002240B4 6174              BSR.S $22412A
  3763. 002240B6 6368              BLS.S $224120
  3764. 002240B8 0043616E          ORI.W #24942,D3
  3765. 002240BC 277420437265      MOVE.L 67(A4,D2.W),29285(A3)
  3766. 002240C2 6174              BSR.S $224138
  3767. 002240C4 6520              BCS.S $2240E6
  3768. 002240C6 506F7274          ADDQ.W #8,29300(A7)
  3769. 002240CA 0043616E          ORI.W #24942,D3
  3770. 002240CE 277420437265      MOVE.L 67(A4,D2.W),29285(A3)
  3771. 002240D4 6174              BSR.S $22414A
  3772. 002240D6 6520              BCS.S $2240F8
  3773. 002240D8 5374              DC.W 21364 ;"St"
  3774. 002240DA 616E              BSR.S $22414A
  3775. 002240DC 6461              BCC.S $22413F
  3776. 002240DE 7264              MOVEQ #100,D1
  3777. 002240E0 2049              MOVEA.L A1,A0
  3778. 002240E2 4F20              DC.W 20256 ;"O "
  3779. 002240E4 426C6F63          CLR.W 28515(A4)
  3780. 002240E8 6B00696E          BMI $22AA58
  3781. 002240EC 7075              MOVEQ #117,D0
  3782. 002240EE 742E              MOVEQ #46,D2
  3783. 002240F0 6465              BCC.S $224157
  3784. 002240F2 7669              MOVEQ #105,D3
  3785. 002240F4 6365              BLS.S $22415B
  3786. 002240F6 0043616E          ORI.W #24942,D3
  3787. 002240FA 2774204F7065      MOVE.L 79(A4,D2.W),28773(A3)
  3788. 00224100 6E20              BGT.S $224122
  3789. 00224102 27696E707574      MOVE.L 28272(A1),30068(A3)
  3790. 00224108 2E64              MOVEA.L -(A4),A7
  3791. 0022410A 6576              BCS.S $224182
  3792. 0022410C 6963              BVS.S $224171
  3793. 0022410E 6527              BCS.S $224137
  3794. 00224110 00457272          ORI.W #29298,D5
  3795. 00224114 6F72              BLE.S $224188
  3796. 00224116 2066              MOVEA.L -(A6),A0
  3797. 00224118 726F              MOVEQ #111,D1
  3798. 0022411A 6D20              BLT.S $22413C
  3799. 0022411C 446F494F          NEG.W 18767(A7)
  3800. 00224120 3A20              MOVE.W -(A0),D5
  3801. 00224122 2025              MOVE.L -(A5),D0
  3802. 00224124 6C64              BGE.S $22418A
  3803. 00224126 00004E55          ORI.B #85,D0
  3804. 0022412A 000042AC          ORI.B #-84,D0
  3805. 0022412E 8250              OR.W (A0),D1
  3806. 00224130 41FA0960          LEA $224A92(PC),A0
  3807. 00224134 29488254          MOVE.L A0,-32172(A4)
  3808. 00224138 197C0033824B      MOVE.B #51,-32181(A4)
  3809. 0022413E 48780009          PEA 9
  3810. 00224142 4EBAFE94          JSR $223FD8(PC)
  3811. 00224146 584F              ADDQ.W #4,A7
  3812. 00224148 397C00018076      MOVE.W #1,-32650(A4)
  3813. 0022414E 4E5D              UNLK A5
  3814. 00224150 4E75              RTS
  3815. 00224152 4E550000          LINK A5,#0
  3816. 00224156 4878000A          PEA 10
  3817. 0022415A 4EBAFE7C          JSR $223FD8(PC)
  3818. 0022415E 584F              ADDQ.W #4,A7
  3819. 00224160 426C8076          CLR.W -32650(A4)
  3820. 00224164 4E5D              UNLK A5
  3821. 00224166 4E75              RTS
  3822. 00224168 4E55FFEC          LINK A5,#-20
  3823. 0022416C 48E70C00          MOVEM.L D4-D5,-(A7)
  3824. 00224170 426DFFFE          CLR.W -2(A5)
  3825. 00224174 426DFFFC          CLR.W -4(A5)
  3826. 00224178 426DFFFA          CLR.W -6(A5)
  3827. 0022417C 426DFFF8          CLR.W -8(A5)
  3828. 00224180 426DFFF6          CLR.W -10(A5)
  3829. 00224184 426DFFF4          CLR.W -12(A5)
  3830. 00224188 42A7              CLR.L -(A7)
  3831. 0022418A 487A022A          PEA $2243B6(PC)
  3832. 0022418E 4EBA1BCE          JSR $225D5E(PC)
  3833. 00224192 504F              ADDQ.W #8,A7
  3834. 00224194 2940805A          MOVE.L D0,-32678(A4)
  3835. 00224198 660A              BNE.S $2241A4
  3836. 0022419A 487A022C          PEA $2243C8(PC)
  3837. 0022419E 4EBAFD22          JSR $223EC2(PC)
  3838. 002241A2 584F              ADDQ.W #4,A7
  3839. 002241A4 487A0243          PEA $2243E9(PC)
  3840. 002241A8 4EBA1B34          JSR $225CDE(PC)
  3841. 002241AC 584F              ADDQ.W #4,A7
  3842. 002241AE 4A80              TST.L D0
  3843. 002241B0 670A              BEQ.S $2241BC
  3844. 002241B2 487A0240          PEA $2243F4(PC)
  3845. 002241B6 4EBAFD0A          JSR $223EC2(PC)
  3846. 002241BA 584F              ADDQ.W #4,A7
  3847. 002241BC 42A7              CLR.L -(A7)
  3848. 002241BE 487A024D          PEA $22440D(PC)
  3849. 002241C2 4EBA1960          JSR $225B24(PC)
  3850. 002241C6 504F              ADDQ.W #8,A7
  3851. 002241C8 29408030          MOVE.L D0,-32720(A4)
  3852. 002241CC 660A              BNE.S $2241D8
  3853. 002241CE 487A0248          PEA $224418(PC)
  3854. 002241D2 4EBAFCEE          JSR $223EC2(PC)
  3855. 002241D6 584F              ADDQ.W #4,A7
  3856. 002241D8 42A7              CLR.L -(A7)
  3857. 002241DA 4EBA1B0E          JSR $225CEA(PC)
  3858. 002241DE 584F              ADDQ.W #4,A7
  3859. 002241E0 2940823A          MOVE.L D0,-32198(A4)
  3860. 002241E4 4878FFFF          PEA -1
  3861. 002241E8 4EBA1A18          JSR $225C02(PC)
  3862. 002241EC 584F              ADDQ.W #4,A7
  3863. 002241EE 2940823E          MOVE.L D0,-32194(A4)
  3864. 002241F2 0CACFFFFFFFF823E  CMPI.L #-1,-32194(A4)
  3865. 002241FA 660A              BNE.S $224206
  3866. 002241FC 487A0237          PEA $224435(PC)
  3867. 00224200 4EBAFCC0          JSR $223EC2(PC)
  3868. 00224204 584F              ADDQ.W #4,A7
  3869. 00224206 7001              MOVEQ #1,D0
  3870. 00224208 222C823E          MOVE.L -32194(A4),D1
  3871. 0022420C E3A0              ASL.L D1,D0
  3872. 0022420E 2940823E          MOVE.L D0,-32194(A4)
  3873. 00224212 4EBAFF14          JSR $224128(PC)
  3874. 00224216 42A7              CLR.L -(A7)
  3875. 00224218 487A023B          PEA $224455(PC)
  3876. 0022421C 4EBA1B40          JSR $225D5E(PC)
  3877. 00224220 504F              ADDQ.W #8,A7
  3878. 00224222 2940805E          MOVE.L D0,-32674(A4)
  3879. 00224226 660A              BNE.S $224232
  3880. 00224228 487A023C          PEA $224466(PC)
  3881. 0022422C 4EBAFC94          JSR $223EC2(PC)
  3882. 00224230 584F              ADDQ.W #4,A7
  3883. 00224232 4EBA071E          JSR $224952(PC)
  3884. 00224236 29408062          MOVE.L D0,-32670(A4)
  3885. 0022423A 660A              BNE.S $224246
  3886. 0022423C 487A0248          PEA $224486(PC)
  3887. 00224240 4EBAFC80          JSR $223EC2(PC)
  3888. 00224244 584F              ADDQ.W #4,A7
  3889. 00224246 206C8062          MOVEA.L -32670(A4),A0
  3890. 0022424A 2968001E8066      MOVE.L 30(A0),-32666(A4)
  3891. 00224250 41EC81AC          LEA -32340(A4),A0
  3892. 00224254 29488028          MOVE.L A0,-32728(A4)
  3893. 00224258 7A01              MOVEQ #1,D5
  3894. 0022425A 4EBA023E          JSR $22449A(PC)
  3895. 0022425E 206C802C          MOVEA.L -32724(A4),A0
  3896. 00224262 7000              MOVEQ #0,D0
  3897. 00224264 1028000F          MOVE.B 15(A0),D0
  3898. 00224268 7201              MOVEQ #1,D1
  3899. 0022426A E1A1              ASL.L D0,D1
  3900. 0022426C 2B41FFF0          MOVE.L D1,-16(A5)
  3901. 00224270 202C823E          MOVE.L -32194(A4),D0
  3902. 00224274 80ADFFF0          OR.L -16(A5),D0
  3903. 00224278 2B40FFEC          MOVE.L D0,-20(A5)
  3904. 0022427C 4A45              TST.W D5
  3905. 0022427E 67000122          BEQ $2243A2
  3906. 00224282 2F2DFFEC          MOVE.L -20(A5),-(A7)
  3907. 00224286 4EBA1B26          JSR $225DAE(PC)
  3908. 0022428A 584F              ADDQ.W #4,A7
  3909. 0022428C 2800              MOVE.L D0,D4
  3910. 0022428E 2004              MOVE.L D4,D0
  3911. 00224290 C0AC823E          AND.L -32194(A4),D0
  3912. 00224294 6710              BEQ.S $2242A6
  3913. 00224296 4EBA0202          JSR $22449A(PC)
  3914. 0022429A 4EBA0446          JSR $2246E2(PC)
  3915. 0022429E 202DFFF0          MOVE.L -16(A5),D0
  3916. 002242A2 4680              NOT.L D0
  3917. 002242A4 C880              AND.L D0,D4
  3918. 002242A6 2004              MOVE.L D4,D0
  3919. 002242A8 C0ADFFF0          AND.L -16(A5),D0
  3920. 002242AC 670000F0          BEQ $22439E
  3921. 002242B0 2F2C802C          MOVE.L -32724(A4),-(A7)
  3922. 002242B4 4EBA1A70          JSR $225D26(PC)
  3923. 002242B8 584F              ADDQ.W #4,A7
  3924. 002242BA 206C801C          MOVEA.L -32740(A4),A0
  3925. 002242BE 3968000681C2      MOVE.W 6(A0),-32318(A4)
  3926. 002242C4 4EBA03CC          JSR $224692(PC)
  3927. 002242C8 302C81C2          MOVE.W -32318(A4),D0
  3928. 002242CC 48C0              EXT.L D0
  3929. 002242CE 6036              BRA.S $224306
  3930. 002242D0 3B7C0001FFF6      MOVE.W #1,-10(A5)
  3931. 002242D6 3B7C0001FFFE      MOVE.W #1,-2(A5)
  3932. 002242DC 604A              BRA.S $224328
  3933. 002242DE 3B7C0002FFF4      MOVE.W #2,-12(A5)
  3934. 002242E4 3B7C0001FFFC      MOVE.W #1,-4(A5)
  3935. 002242EA 603C              BRA.S $224328
  3936. 002242EC 426DFFF6          CLR.W -10(A5)
  3937. 002242F0 3B7C0001FFF8      MOVE.W #1,-8(A5)
  3938. 002242F6 6030              BRA.S $224328
  3939. 002242F8 426DFFF4          CLR.W -12(A5)
  3940. 002242FC 3B7C0001FFFA      MOVE.W #1,-6(A5)
  3941. 00224302 6024              BRA.S $224328
  3942. 00224304 6022              BRA.S $224328
  3943. 00224306 90BC00000068      SUB.L #104,D0
  3944. 0022430C 67C2              BEQ.S $2242D0
  3945. 0022430E 5380              SUBQ.L #1,D0
  3946. 00224310 67CC              BEQ.S $2242DE
  3947. 00224312 90BC0000007F      SUB.L #127,D0
  3948. 00224318 67D2              BEQ.S $2242EC
  3949. 0022431A 5380              SUBQ.L #1,D0
  3950. 0022431C 67DA              BEQ.S $2242F8
  3951. 0022431E 90BC00000016      SUB.L #22,D0
  3952. 00224324 67DE              BEQ.S $224304
  3953. 00224326 60DC              BRA.S $224304
  3954. 00224328 4A6DFFFE          TST.W -2(A5)
  3955. 0022432C 6612              BNE.S $224340
  3956. 0022432E 4A6DFFF8          TST.W -8(A5)
  3957. 00224332 660C              BNE.S $224340
  3958. 00224334 4A6DFFFC          TST.W -4(A5)
  3959. 00224338 6606              BNE.S $224340
  3960. 0022433A 4A6DFFFA          TST.W -6(A5)
  3961. 0022433E 6748              BEQ.S $224388
  3962. 00224340 302DFFF6          MOVE.W -10(A5),D0
  3963. 00224344 48C0              EXT.L D0
  3964. 00224346 322DFFF4          MOVE.W -12(A5),D1
  3965. 0022434A 48C1              EXT.L D1
  3966. 0022434C D081              ADD.L D1,D0
  3967. 0022434E 2F00              MOVE.L D0,-(A7)
  3968. 00224350 302DFFFA          MOVE.W -6(A5),D0
  3969. 00224354 48C0              EXT.L D0
  3970. 00224356 2F00              MOVE.L D0,-(A7)
  3971. 00224358 302DFFF8          MOVE.W -8(A5),D0
  3972. 0022435C 48C0              EXT.L D0
  3973. 0022435E 2F00              MOVE.L D0,-(A7)
  3974. 00224360 302DFFFC          MOVE.W -4(A5),D0
  3975. 00224364 48C0              EXT.L D0
  3976. 00224366 2F00              MOVE.L D0,-(A7)
  3977. 00224368 302DFFFE          MOVE.W -2(A5),D0
  3978. 0022436C 48C0              EXT.L D0
  3979. 0022436E 2F00              MOVE.L D0,-(A7)
  3980. 00224370 4EBA06CE          JSR $224A40(PC)
  3981. 00224374 4FEF0014          LEA 20(A7),A7
  3982. 00224378 426DFFFE          CLR.W -2(A5)
  3983. 0022437C 426DFFFC          CLR.W -4(A5)
  3984. 00224380 426DFFFA          CLR.W -6(A5)
  3985. 00224384 426DFFF8          CLR.W -8(A5)
  3986. 00224388 206C8020          MOVEA.L -32736(A4),A0
  3987. 0022438C 217C000000160024  MOVE.L #22,36(A0)
  3988. 00224394 2F2C8020          MOVE.L -32736(A4),-(A7)
  3989. 00224398 4EBA19F8          JSR $225D92(PC)
  3990. 0022439C 584F              ADDQ.W #4,A7
  3991. 0022439E 6000FEDC          BRA $22427C
  3992. 002243A2 4EBAFDAE          JSR $224152(PC)
  3993. 002243A6 42A7              CLR.L -(A7)
  3994. 002243A8 4EBAFB18          JSR $223EC2(PC)
  3995. 002243AC 584F              ADDQ.W #4,A7
  3996. 002243AE 4CDF0030          MOVEM.L (A7)+,D4-D5
  3997. 002243B2 4E5D              UNLK A5
  3998. 002243B4 4E75              RTS
  3999. 002243B6 696E              BVS.S $224426
  4000. 002243B8 7475              MOVEQ #117,D2
  4001. 002243BA 6974              BVS.S $224430
  4002. 002243BC 696F              BVS.S $22442D
  4003. 002243BE 6E2E              BGT.S $2243EE
  4004. 002243C0 6C69              BGE.S $22442B
  4005. 002243C2 6272              BHI.S $224436
  4006. 002243C4 6172              BSR.S $224438
  4007. 002243C6 7900              DC.W 30976 ;"y."
  4008. 002243C8 756E              DC.W 30062 ;"un"
  4009. 002243CA 6162              BSR.S $22442E
  4010. 002243CC 6C65              BGE.S $224433
  4011. 002243CE 2074              DC.W 8308 ;" t"
  4012. 002243D0 6F20              BLE.S $2243F2
  4013. 002243D2 6F70              BLE.S $224444
  4014. 002243D4 656E              BCS.S $224444
  4015. 002243D6 20696E74          MOVEA.L 28276(A1),A0
  4016. 002243DA 7569              DC.W 30057 ;"ui"
  4017. 002243DC 7469              MOVEQ #105,D2
  4018. 002243DE 6F6E              BLE.S $22444E
  4019. 002243E0 206C6962          MOVEA.L 26978(A4),A0
  4020. 002243E4 7261              MOVEQ #97,D1
  4021. 002243E6 7279              MOVEQ #121,D1
  4022. 002243E8 00414D6F          ORI.W #19823,D1
  4023. 002243EC 7573              DC.W 30067 ;"us"
  4024. 002243EE 6550              BCS.S $224440
  4025. 002243F0 6F72              BLE.S $224464
  4026. 002243F2 7400              MOVEQ #0,D2
  4027. 002243F4 414D              DC.W 16717 ;"AM"
  4028. 002243F6 6F75              BLE.S $22446D
  4029. 002243F8 7365              DC.W 29541 ;"se"
  4030. 002243FA 20697320          MOVEA.L 29472(A1),A0
  4031. 002243FE 616C              BSR.S $22446C
  4032. 00224400 7265              MOVEQ #101,D1
  4033. 00224402 6164              BSR.S $224468
  4034. 00224404 7920              DC.W 31008 ;"y "
  4035. 00224406 6163              BSR.S $22446B
  4036. 00224408 7469              MOVEQ #105,D2
  4037. 0022440A 7665              MOVEQ #101,D3
  4038. 0022440C 00414D6F          ORI.W #19823,D1
  4039. 00224410 7573              DC.W 30067 ;"us"
  4040. 00224412 6550              BCS.S $224464
  4041. 00224414 6F72              BLE.S $224488
  4042. 00224416 7400              MOVEQ #0,D2
  4043. 00224418 556E6162          SUBQ.W #2,24930(A6)
  4044. 0022441C 6C65              BGE.S $224483
  4045. 0022441E 2074              DC.W 8308 ;" t"
  4046. 00224420 6F20              BLE.S $224442
  4047. 00224422 6372              BLS.S $224496
  4048. 00224424 6561              BCS.S $224487
  4049. 00224426 7465              MOVEQ #101,D2
  4050. 00224428 2041              MOVEA.L D1,A0
  4051. 0022442A 4D6F              DC.W 19823 ;"Mo"
  4052. 0022442C 7573              DC.W 30067 ;"us"
  4053. 0022442E 6520              BCS.S $224450
  4054. 00224430 506F7274          ADDQ.W #8,29300(A7)
  4055. 00224434 004D              DC.W 77 ;".M"
  4056. 00224436 6F75              BLE.S $2244AD
  4057. 00224438 7365              DC.W 29541 ;"se"
  4058. 0022443A 2073              DC.W 8307 ;" s"
  4059. 0022443C 6967              BVS.S $2244A5
  4060. 0022443E 6E61              BGT.S $2244A1
  4061. 00224440 6C20              BGE.S $224462
  4062. 00224442 616C              BSR.S $2244B0
  4063. 00224444 6C6F              BGE.S $2244B5
  4064. 00224446 6361              BLS.S $2244A9
  4065. 00224448 7469              MOVEQ #105,D2
  4066. 0022444A 6F6E              BLE.S $2244BA
  4067. 0022444C 2066              MOVEA.L -(A6),A0
  4068. 0022444E 6169              BSR.S $2244B9
  4069. 00224450 6C75              BGE.S $2244C7
  4070. 00224452 7265              MOVEQ #101,D1
  4071. 00224454 00677261          ORI.W #29281,-(A7)
  4072. 00224458 7068              MOVEQ #104,D0
  4073. 0022445A 6963              BVS.S $2244BF
  4074. 0022445C 732E              DC.W 29486 ;"s."
  4075. 0022445E 6C69              BGE.S $2244C9
  4076. 00224460 6272              BHI.S $2244D4
  4077. 00224462 6172              BSR.S $2244D6
  4078. 00224464 7900              DC.W 30976 ;"y."
  4079. 00224466 756E              DC.W 30062 ;"un"
  4080. 00224468 6162              BSR.S $2244CC
  4081. 0022446A 6C65              BGE.S $2244D1
  4082. 0022446C 2074              DC.W 8308 ;" t"
  4083. 0022446E 6F20              BLE.S $224490
  4084. 00224470 6F70              BLE.S $2244E2
  4085. 00224472 656E              BCS.S $2244E2
  4086. 00224474 2067              MOVEA.L -(A7),A0
  4087. 00224476 7261              MOVEQ #97,D1
  4088. 00224478 7068              MOVEQ #104,D0
  4089. 0022447A 6963              BVS.S $2244DF
  4090. 0022447C 7320              DC.W 29472 ;"s "
  4091. 0022447E 6C69              BGE.S $2244E9
  4092. 00224480 6272              BHI.S $2244F4
  4093. 00224482 6172              BSR.S $2244F6
  4094. 00224484 7900              DC.W 30976 ;"y."
  4095. 00224486 4A61              TST.W -(A1)
  4096. 00224488 6E75              BGT.S $2244FF
  4097. 0022448A 7320              DC.W 29472 ;"s "
  4098. 0022448C 7365              DC.W 29541 ;"se"
  4099. 0022448E 7475              MOVEQ #117,D2
  4100. 00224490 7020              MOVEQ #32,D0
  4101. 00224492 6661              BNE.S $2244F5
  4102. 00224494 696C              BVS.S $224502
  4103. 00224496 7572              DC.W 30066 ;"ur"
  4104. 00224498 65004E55          BCS $2292EF
  4105. 0022449C FFFC              DC.W 65532 ;"ÿü"
  4106. 0022449E 4AAC8024          TST.L -32732(A4)
  4107. 002244A2 6764              BEQ.S $224508
  4108. 002244A4 2F2C8020          MOVE.L -32736(A4),-(A7)
  4109. 002244A8 4EBA1652          JSR $225AFC(PC)
  4110. 002244AC 584F              ADDQ.W #4,A7
  4111. 002244AE 2B40FFFC          MOVE.L D0,-4(A5)
  4112. 002244B2 660A              BNE.S $2244BE
  4113. 002244B4 2F2C802C          MOVE.L -32724(A4),-(A7)
  4114. 002244B8 4EBA1900          JSR $225DBA(PC)
  4115. 002244BC 584F              ADDQ.W #4,A7
  4116. 002244BE 2F2C802C          MOVE.L -32724(A4),-(A7)
  4117. 002244C2 4EBA1862          JSR $225D26(PC)
  4118. 002244C6 584F              ADDQ.W #4,A7
  4119. 002244C8 2B40FFFC          MOVE.L D0,-4(A5)
  4120. 002244CC 6702              BEQ.S $2244D0
  4121. 002244CE 60EE              BRA.S $2244BE
  4122. 002244D0 206C8020          MOVEA.L -32736(A4),A0
  4123. 002244D4 317C0005001C      MOVE.W #5,28(A0)
  4124. 002244DA 206C8020          MOVEA.L -32736(A4),A0
  4125. 002244DE 4228001E          CLR.B 30(A0)
  4126. 002244E2 2F2C8020          MOVE.L -32736(A4),-(A7)
  4127. 002244E6 4EBA17E0          JSR $225CC8(PC)
  4128. 002244EA 584F              ADDQ.W #4,A7
  4129. 002244EC 2B40FFFC          MOVE.L D0,-4(A5)
  4130. 002244F0 42A7              CLR.L -(A7)
  4131. 002244F2 4EBA01C4          JSR $2246B8(PC)
  4132. 002244F6 584F              ADDQ.W #4,A7
  4133. 002244F8 2F2C8020          MOVE.L -32736(A4),-(A7)
  4134. 002244FC 4EBA160A          JSR $225B08(PC)
  4135. 00224500 584F              ADDQ.W #4,A7
  4136. 00224502 42AC8024          CLR.L -32732(A4)
  4137. 00224506 6036              BRA.S $22453E
  4138. 00224508 42A7              CLR.L -(A7)
  4139. 0022450A 487A0104          PEA $224610(PC)
  4140. 0022450E 4EBA1614          JSR $225B24(PC)
  4141. 00224512 504F              ADDQ.W #8,A7
  4142. 00224514 2940802C          MOVE.L D0,-32724(A4)
  4143. 00224518 660A              BNE.S $224524
  4144. 0022451A 487A0103          PEA $22461F(PC)
  4145. 0022451E 4EBAF9A2          JSR $223EC2(PC)
  4146. 00224522 584F              ADDQ.W #4,A7
  4147. 00224524 2F2C802C          MOVE.L -32724(A4),-(A7)
  4148. 00224528 4EBA16E4          JSR $225C0E(PC)
  4149. 0022452C 584F              ADDQ.W #4,A7
  4150. 0022452E 29408020          MOVE.L D0,-32736(A4)
  4151. 00224532 660A              BNE.S $22453E
  4152. 00224534 487A0105          PEA $22463B(PC)
  4153. 00224538 4EBAF988          JSR $223EC2(PC)
  4154. 0022453C 584F              ADDQ.W #4,A7
  4155. 0022453E 42A7              CLR.L -(A7)
  4156. 00224540 2F2C8020          MOVE.L -32736(A4),-(A7)
  4157. 00224544 7000              MOVEQ #0,D0
  4158. 00224546 102C8012          MOVE.B -32750(A4),D0
  4159. 0022454A 7201              MOVEQ #1,D1
  4160. 0022454C 9280              SUB.L D0,D1
  4161. 0022454E 2F01              MOVE.L D1,-(A7)
  4162. 00224550 487A0106          PEA $224658(PC)
  4163. 00224554 4EBA17F2          JSR $225D48(PC)
  4164. 00224558 4FEF0010          LEA 16(A7),A7
  4165. 0022455C 4A80              TST.L D0
  4166. 0022455E 660A              BNE.S $22456A
  4167. 00224560 297C000000018024  MOVE.L #1,-32732(A4)
  4168. 00224568 6004              BRA.S $22456E
  4169. 0022456A 42AC8024          CLR.L -32732(A4)
  4170. 0022456E 660A              BNE.S $22457A
  4171. 00224570 487A00F6          PEA $224668(PC)
  4172. 00224574 4EBAF94C          JSR $223EC2(PC)
  4173. 00224578 584F              ADDQ.W #4,A7
  4174. 0022457A 4A2C8012          TST.B -32750(A4)
  4175. 0022457E 6708              BEQ.S $224588
  4176. 00224580 41FA0105          LEA $224687(PC),A0
  4177. 00224584 2008              MOVE.L A0,D0
  4178. 00224586 6006              BRA.S $22458E
  4179. 00224588 41FA0102          LEA $22468C(PC),A0
  4180. 0022458C 2008              MOVE.L A0,D0
  4181. 0022458E 2F00              MOVE.L D0,-(A7)
  4182. 00224590 4EBA030A          JSR $22489C(PC)
  4183. 00224594 584F              ADDQ.W #4,A7
  4184. 00224596 206C8020          MOVEA.L -32736(A4),A0
  4185. 0022459A 217C000000160024  MOVE.L #22,36(A0)
  4186. 002245A2 41EC81AC          LEA -32340(A4),A0
  4187. 002245A6 226C8020          MOVEA.L -32736(A4),A1
  4188. 002245AA 23480028          MOVE.L A0,40(A1)
  4189. 002245AE 41EC81AC          LEA -32340(A4),A0
  4190. 002245B2 2948801C          MOVE.L A0,-32740(A4)
  4191. 002245B6 48780001          PEA 1
  4192. 002245BA 4EBA00FC          JSR $2246B8(PC)
  4193. 002245BE 584F              ADDQ.W #4,A7
  4194. 002245C0 206C8020          MOVEA.L -32736(A4),A0
  4195. 002245C4 317C000D001C      MOVE.W #13,28(A0)
  4196. 002245CA 41EC8014          LEA -32748(A4),A0
  4197. 002245CE 226C8020          MOVEA.L -32736(A4),A1
  4198. 002245D2 23480028          MOVE.L A0,40(A1)
  4199. 002245D6 2F2C8020          MOVE.L -32736(A4),-(A7)
  4200. 002245DA 4EBA16EC          JSR $225CC8(PC)
  4201. 002245DE 584F              ADDQ.W #4,A7
  4202. 002245E0 206C8020          MOVEA.L -32736(A4),A0
  4203. 002245E4 317C0009001C      MOVE.W #9,28(A0)
  4204. 002245EA 41EC81AC          LEA -32340(A4),A0
  4205. 002245EE 226C8020          MOVEA.L -32736(A4),A1
  4206. 002245F2 23480028          MOVE.L A0,40(A1)
  4207. 002245F6 206C8020          MOVEA.L -32736(A4),A0
  4208. 002245FA 217C000000160024  MOVE.L #22,36(A0)
  4209. 00224602 2F2C8020          MOVE.L -32736(A4),-(A7)
  4210. 00224606 4EBA178A          JSR $225D92(PC)
  4211. 0022460A 584F              ADDQ.W #4,A7
  4212. 0022460C 4E5D              UNLK A5
  4213. 0022460E 4E75              RTS
  4214. 00224610 414D              DC.W 16717 ;"AM"
  4215. 00224612 6F75              BLE.S $224689
  4216. 00224614 7365              DC.W 29541 ;"se"
  4217. 00224616 4761              DC.W 18273 ;"Ga"
  4218. 00224618 6D65              BLT.S $22467F
  4219. 0022461A 506F7274          ADDQ.W #8,29300(A7)
  4220. 0022461E 00437265          ORI.W #29285,D3
  4221. 00224622 6174              BSR.S $224698
  4222. 00224624 6550              BCS.S $224676
  4223. 00224626 6F72              BLE.S $22469A
  4224. 00224628 7420              MOVEQ #32,D2
  4225. 0022462A 666F              BNE.S $22469B
  4226. 0022462C 7220              MOVEQ #32,D1
  4227. 0022462E 4D6F              DC.W 19823 ;"Mo"
  4228. 00224630 7573              DC.W 30067 ;"us"
  4229. 00224632 6520              BCS.S $224654
  4230. 00224634 6661              BNE.S $224697
  4231. 00224636 696C              BVS.S $2246A4
  4232. 00224638 6564              BCS.S $22469E
  4233. 0022463A 00437265          ORI.W #29285,D3
  4234. 0022463E 6174              BSR.S $2246B4
  4235. 00224640 6553              BCS.S $224695
  4236. 00224642 7464              MOVEQ #100,D2
  4237. 00224644 494F              DC.W 18767 ;"IO"
  4238. 00224646 2066              MOVEA.L -(A6),A0
  4239. 00224648 6F72              BLE.S $2246BC
  4240. 0022464A 204D              MOVEA.L A5,A0
  4241. 0022464C 6F75              BLE.S $2246C3
  4242. 0022464E 7365              DC.W 29541 ;"se"
  4243. 00224650 2066              MOVEA.L -(A6),A0
  4244. 00224652 6169              BSR.S $2246BD
  4245. 00224654 6C65              BGE.S $2246BB
  4246. 00224656 64006761          BCC $22ADB9
  4247. 0022465A 6D65              BLT.S $2246C1
  4248. 0022465C 706F              MOVEQ #111,D0
  4249. 0022465E 7274              MOVEQ #116,D1
  4250. 00224660 2E64              MOVEA.L -(A4),A7
  4251. 00224662 6576              BCS.S $2246DA
  4252. 00224664 6963              BVS.S $2246C9
  4253. 00224666 65004F70          BCS $2295D8
  4254. 0022466A 656E              BCS.S $2246DA
  4255. 0022466C 4465              NEG.W -(A5)
  4256. 0022466E 7669              MOVEQ #105,D3
  4257. 00224670 6365              BLS.S $2246D7
  4258. 00224672 2066              MOVEA.L -(A6),A0
  4259. 00224674 6F72              BLE.S $2246E8
  4260. 00224676 2067              MOVEA.L -(A7),A0
  4261. 00224678 616D              BSR.S $2246E7
  4262. 0022467A 6570              BCS.S $2246EC
  4263. 0022467C 6F72              BLE.S $2246F0
  4264. 0022467E 7420              MOVEQ #32,D2
  4265. 00224680 6661              BNE.S $2246E3
  4266. 00224682 696C              BVS.S $2246F0
  4267. 00224684 6564              BCS.S $2246EA
  4268. 00224686 006C65667400      ORI.W #25958,29696(A4)
  4269. 0022468C 7269              MOVEQ #105,D1
  4270. 0022468E 6768              BEQ.S $2246F8
  4271. 00224690 7400              MOVEQ #0,D2
  4272. 00224692 4E550000          LINK A5,#0
  4273. 00224696 206C801C          MOVEA.L -32740(A4),A0
  4274. 0022469A 3028000C          MOVE.W 12(A0),D0
  4275. 0022469E 48C0              EXT.L D0
  4276. 002246A0 2F00              MOVE.L D0,-(A7)
  4277. 002246A2 206C801C          MOVEA.L -32740(A4),A0
  4278. 002246A6 3028000A          MOVE.W 10(A0),D0
  4279. 002246AA 48C0              EXT.L D0
  4280. 002246AC 2F00              MOVE.L D0,-(A7)
  4281. 002246AE 4EBA035E          JSR $224A0E(PC)
  4282. 002246B2 504F              ADDQ.W #8,A7
  4283. 002246B4 4E5D              UNLK A5
  4284. 002246B6 4E75              RTS
  4285. 002246B8 4E55FFFC          LINK A5,#-4
  4286. 002246BC 206C8020          MOVEA.L -32736(A4),A0
  4287. 002246C0 317C000B001C      MOVE.W #11,28(A0)
  4288. 002246C6 206C8028          MOVEA.L -32728(A4),A0
  4289. 002246CA 10AD000B          MOVE.B 11(A5),(A0)
  4290. 002246CE 2F2C8020          MOVE.L -32736(A4),-(A7)
  4291. 002246D2 4EBA15F4          JSR $225CC8(PC)
  4292. 002246D6 584F              ADDQ.W #4,A7
  4293. 002246D8 2B40FFFC          MOVE.L D0,-4(A5)
  4294. 002246DC 7000              MOVEQ #0,D0
  4295. 002246DE 4E5D              UNLK A5
  4296. 002246E0 4E75              RTS
  4297. 002246E2 4E55FFFA          LINK A5,#-6
  4298. 002246E6 1B6C8012FFFF      MOVE.B -32750(A4),-1(A5)
  4299. 002246EC 42A7              CLR.L -(A7)
  4300. 002246EE 486C81C4          PEA -32316(A4)
  4301. 002246F2 42A7              CLR.L -(A7)
  4302. 002246F4 487A00B6          PEA $2247AC(PC)
  4303. 002246F8 4EBA164E          JSR $225D48(PC)
  4304. 002246FC 4FEF0010          LEA 16(A7),A7
  4305. 00224700 4A80              TST.L D0
  4306. 00224702 670A              BEQ.S $22470E
  4307. 00224704 487A00B3          PEA $2247B9(PC)
  4308. 00224708 4EBAF7B8          JSR $223EC2(PC)
  4309. 0022470C 584F              ADDQ.W #4,A7
  4310. 0022470E 197C000481FC      MOVE.B #4,-32260(A4)
  4311. 00224714 422C8202          CLR.B -32254(A4)
  4312. 00224718 4878FFFF          PEA -1
  4313. 0022471C 4EBA14E4          JSR $225C02(PC)
  4314. 00224720 584F              ADDQ.W #4,A7
  4315. 00224722 19408203          MOVE.B D0,-32253(A4)
  4316. 00224726 4A00              TST.B D0
  4317. 00224728 6414              BCC.S $22473E
  4318. 0022472A 486C81C4          PEA -32316(A4)
  4319. 0022472E 4EBA13D8          JSR $225B08(PC)
  4320. 00224732 584F              ADDQ.W #4,A7
  4321. 00224734 487A00AC          PEA $2247E2(PC)
  4322. 00224738 4EBAF788          JSR $223EC2(PC)
  4323. 0022473C 584F              ADDQ.W #4,A7
  4324. 0022473E 42A7              CLR.L -(A7)
  4325. 00224740 4EBA15A8          JSR $225CEA(PC)
  4326. 00224744 584F              ADDQ.W #4,A7
  4327. 00224746 29408204          MOVE.L D0,-32252(A4)
  4328. 0022474A 486C8208          PEA -32248(A4)
  4329. 0022474E 4EBA15E6          JSR $225D36(PC)
  4330. 00224752 584F              ADDQ.W #4,A7
  4331. 00224754 41EC81F4          LEA -32268(A4),A0
  4332. 00224758 294881D2          MOVE.L A0,-32302(A4)
  4333. 0022475C 397C000E81E0      MOVE.W #14,-32288(A4)
  4334. 00224762 41EDFFFF          LEA -1(A5),A0
  4335. 00224766 294881EC          MOVE.L A0,-32276(A4)
  4336. 0022476A 297C0000000181E8  MOVE.L #1,-32280(A4)
  4337. 00224772 486C81C4          PEA -32316(A4)
  4338. 00224776 4EBA1550          JSR $225CC8(PC)
  4339. 0022477A 584F              ADDQ.W #4,A7
  4340. 0022477C 2B40FFFA          MOVE.L D0,-6(A5)
  4341. 00224780 486C81C4          PEA -32316(A4)
  4342. 00224784 4EBA1382          JSR $225B08(PC)
  4343. 00224788 584F              ADDQ.W #4,A7
  4344. 0022478A 7000              MOVEQ #0,D0
  4345. 0022478C 102C8203          MOVE.B -32253(A4),D0
  4346. 00224790 2F00              MOVE.L D0,-(A7)
  4347. 00224792 4EBA1586          JSR $225D1A(PC)
  4348. 00224796 584F              ADDQ.W #4,A7
  4349. 00224798 4AADFFFA          TST.L -6(A5)
  4350. 0022479C 670A              BEQ.S $2247A8
  4351. 0022479E 487A0064          PEA $224804(PC)
  4352. 002247A2 4EBAF71E          JSR $223EC2(PC)
  4353. 002247A6 584F              ADDQ.W #4,A7
  4354. 002247A8 4E5D              UNLK A5
  4355. 002247AA 4E75              RTS
  4356. 002247AC 696E              BVS.S $22481C
  4357. 002247AE 7075              MOVEQ #117,D0
  4358. 002247B0 742E              MOVEQ #46,D2
  4359. 002247B2 6465              BCC.S $224819
  4360. 002247B4 7669              MOVEQ #105,D3
  4361. 002247B6 6365              BLS.S $22481D
  4362. 002247B8 0063616E          ORI.W #24942,-(A3)
  4363. 002247BC B474206F          CMP.W 111(A4,D2.W),D2
  4364. 002247C0 7065              MOVEQ #101,D0
  4365. 002247C2 6E20              BGT.S $2247E4
  4366. 002247C4 696E              BVS.S $224834
  4367. 002247C6 7075              MOVEQ #117,D0
  4368. 002247C8 742E              MOVEQ #46,D2
  4369. 002247CA 6465              BCC.S $224831
  4370. 002247CC 7669              MOVEQ #105,D3
  4371. 002247CE 6365              BLS.S $224835
  4372. 002247D0 2066              MOVEA.L -(A6),A0
  4373. 002247D2 6F72              BLE.S $224846
  4374. 002247D4 206D6F75          MOVEA.L 28533(A5),A0
  4375. 002247D8 7365              DC.W 29541 ;"se"
  4376. 002247DA 2063              MOVEA.L -(A3),A0
  4377. 002247DC 6861              BVC.S $22483F
  4378. 002247DE 6E67              BGT.S $224847
  4379. 002247E0 65006361          BCS $22AB43
  4380. 002247E4 6EB4              BGT.S $22479A
  4381. 002247E6 7420              MOVEQ #32,D2
  4382. 002247E8 6765              BEQ.S $22484F
  4383. 002247EA 7420              MOVEQ #32,D2
  4384. 002247EC 5369676E          SUBQ.W #1,26478(A1)
  4385. 002247F0 616C              BSR.S $22485E
  4386. 002247F2 2066              MOVEA.L -(A6),A0
  4387. 002247F4 6F72              BLE.S $224868
  4388. 002247F6 206D6F75          MOVEA.L 28533(A5),A0
  4389. 002247FA 7365              DC.W 29541 ;"se"
  4390. 002247FC 2063              MOVEA.L -(A3),A0
  4391. 002247FE 6861              BVC.S $224861
  4392. 00224800 6E67              BGT.S $224869
  4393. 00224802 65006361          BCS $22AB65
  4394. 00224806 6E27              BGT.S $22482F
  4395. 00224808 7420              MOVEQ #32,D2
  4396. 0022480A 7377              DC.W 29559 ;"sw"
  4397. 0022480C 6974              BVS.S $224882
  4398. 0022480E 6368              BLS.S $224878
  4399. 00224810 2049              MOVEA.L A1,A0
  4400. 00224812 6E74              BGT.S $224888
  4401. 00224814 7569              DC.W 30057 ;"ui"
  4402. 00224816 7469              MOVEQ #105,D2
  4403. 00224818 6F6E              BLE.S $224888
  4404. 0022481A 206D6F75          MOVEA.L 28533(A5),A0
  4405. 0022481E 7365              DC.W 29541 ;"se"
  4406. 00224820 2070              DC.W 8304 ;" p"
  4407. 00224822 6F72              BLE.S $224896
  4408. 00224824 7400              MOVEQ #0,D2
  4409. 00224826 4E550000          LINK A5,#0
  4410. 0022482A 48E70830          MOVEM.L D4/A2-A3,-(A7)
  4411. 0022482E 246D0008          MOVEA.L 8(A5),A2
  4412. 00224832 97CB              SUBA.L A3,A3
  4413. 00224834 7800              MOVEQ #0,D4
  4414. 00224836 4EBA14C2          JSR $225CFA(PC)
  4415. 0022483A 200A              MOVE.L A2,D0
  4416. 0022483C 673C              BEQ.S $22487A
  4417. 0022483E 0C2A00010004      CMPI.B #1,4(A2)
  4418. 00224844 662E              BNE.S $224874
  4419. 00224846 082A00060009      BTST #6,9(A2)
  4420. 0022484C 6726              BEQ.S $224874
  4421. 0022484E 0C6A00190006      CMPI.W #25,6(A2)
  4422. 00224854 661E              BNE.S $224874
  4423. 00224856 7001              MOVEQ #1,D0
  4424. 00224858 9084              SUB.L D4,D0
  4425. 0022485A 2800              MOVE.L D0,D4
  4426. 0022485C 7001              MOVEQ #1,D0
  4427. 0022485E 902C8012          SUB.B -32750(A4),D0
  4428. 00224862 19408012          MOVE.B D0,-32750(A4)
  4429. 00224866 200B              MOVE.L A3,D0
  4430. 00224868 6606              BNE.S $224870
  4431. 0022486A 2B520008          MOVE.L (A2),8(A5)
  4432. 0022486E 6002              BRA.S $224872
  4433. 00224870 2692              MOVE.L (A2),(A3)
  4434. 00224872 6002              BRA.S $224876
  4435. 00224874 264A              MOVEA.L A2,A3
  4436. 00224876 2452              MOVEA.L (A2),A2
  4437. 00224878 60C0              BRA.S $22483A
  4438. 0022487A 4EBA14F6          JSR $225D72(PC)
  4439. 0022487E 4A84              TST.L D4
  4440. 00224880 670E              BEQ.S $224890
  4441. 00224882 2F2C823E          MOVE.L -32194(A4),-(A7)
  4442. 00224886 2F2C823A          MOVE.L -32198(A4),-(A7)
  4443. 0022488A 4EBA1512          JSR $225D9E(PC)
  4444. 0022488E 504F              ADDQ.W #8,A7
  4445. 00224890 202D0008          MOVE.L 8(A5),D0
  4446. 00224894 4CDF0C10          MOVEM.L (A7)+,D4/A2-A3
  4447. 00224898 4E5D              UNLK A5
  4448. 0022489A 4E75              RTS
  4449. 0022489C 4E55FF78          LINK A5,#-136
  4450. 002248A0 2F2D0008          MOVE.L 8(A5),-(A7)
  4451. 002248A4 486C804E          PEA -32690(A4)
  4452. 002248A8 486C8034          PEA -32716(A4)
  4453. 002248AC 486DFF78          PEA -136(A5)
  4454. 002248B0 4EBA0B2A          JSR $2253DC(PC)
  4455. 002248B4 4FEF0010          LEA 16(A7),A7
  4456. 002248B8 41EDFF78          LEA -136(A5),A0
  4457. 002248BC 2948808C          MOVE.L A0,-32628(A4)
  4458. 002248C0 4EBA1438          JSR $225CFA(PC)
  4459. 002248C4 206C805A          MOVEA.L -32678(A4),A0
  4460. 002248C8 2B68003CFFFC      MOVE.L 60(A0),-4(A5)
  4461. 002248CE 6074              BRA.S $224944
  4462. 002248D0 206DFFFC          MOVEA.L -4(A5),A0
  4463. 002248D4 2B680004FFF8      MOVE.L 4(A0),-8(A5)
  4464. 002248DA 605A              BRA.S $224936
  4465. 002248DC 486C8094          PEA -32620(A4)
  4466. 002248E0 4EBA072E          JSR $225010(PC)
  4467. 002248E4 584F              ADDQ.W #4,A7
  4468. 002248E6 2F00              MOVE.L D0,-(A7)
  4469. 002248E8 486C8094          PEA -32620(A4)
  4470. 002248EC 206DFFF8          MOVEA.L -8(A5),A0
  4471. 002248F0 2F280020          MOVE.L 32(A0),-(A7)
  4472. 002248F4 4EBA0732          JSR $225028(PC)
  4473. 002248F8 4FEF000C          LEA 12(A7),A7
  4474. 002248FC 4A80              TST.L D0
  4475. 002248FE 662E              BNE.S $22492E
  4476. 00224900 48780001          PEA 1
  4477. 00224904 206DFFF8          MOVEA.L -8(A5),A0
  4478. 00224908 2F280020          MOVE.L 32(A0),-(A7)
  4479. 0022490C 4EBA0702          JSR $225010(PC)
  4480. 00224910 584F              ADDQ.W #4,A7
  4481. 00224912 E780              ASL.L #3,D0
  4482. 00224914 2040              MOVEA.L D0,A0
  4483. 00224916 4868001E          PEA 30(A0)
  4484. 0022491A 486C8080          PEA -32640(A4)
  4485. 0022491E 206DFFF8          MOVEA.L -8(A5),A0
  4486. 00224922 2F280032          MOVE.L 50(A0),-(A7)
  4487. 00224926 4EBA14F2          JSR $225E1A(PC)
  4488. 0022492A 4FEF0010          LEA 16(A7),A7
  4489. 0022492E 206DFFF8          MOVEA.L -8(A5),A0
  4490. 00224932 2B50FFF8          MOVE.L (A0),-8(A5)
  4491. 00224936 4AADFFF8          TST.L -8(A5)
  4492. 0022493A 66A0              BNE.S $2248DC
  4493. 0022493C 206DFFFC          MOVEA.L -4(A5),A0
  4494. 00224940 2B50FFFC          MOVE.L (A0),-4(A5)
  4495. 00224944 4AADFFFC          TST.L -4(A5)
  4496. 00224948 6686              BNE.S $2248D0
  4497. 0022494A 4EBA1426          JSR $225D72(PC)
  4498. 0022494E 4E5D              UNLK A5
  4499. 00224950 4E75              RTS
  4500.  
  4501. 00224952 4E550000          LINK A5,#0
  4502. 00224956 2C780004          MOVEA.L 4,A6
  4503. 0022495A 43EC80B4          LEA -32588(A4),A1
  4504. 0022495E 7000              MOVEQ #0,D0
  4505. 00224960 4EAEFDD8          JSR -552(A6)
  4506. 00224964 294080B0          MOVE.L D0,-32592(A4)
  4507. 00224968 6602              BNE.S $22496C
  4508. 0022496A 606A              BRA.S $2249D6
  4509. 0022496C 70FF              MOVEQ #-1,D0
  4510. 0022496E 4EAEFEB6          JSR -330(A6)
  4511. 00224972 394080A2          MOVE.W D0,-32606(A4)
  4512. 00224976 6B000088          BMI $224A00
  4513. 0022497A 7201              MOVEQ #1,D1
  4514. 0022497C E1A9              LSL.L D0,D1
  4515. 0022497E 294180A4          MOVE.L D1,-32604(A4)
  4516. 00224982 2200              MOVE.L D0,D1
  4517. 00224984 7011              MOVEQ #17,D0
  4518. 00224986 7408              MOVEQ #8,D2
  4519. 00224988 263C00001001      MOVE.L #4097,D3
  4520. 0022498E 2C6C80B0          MOVEA.L -32592(A4),A6
  4521. 00224992 4EAEFF94          JSR -108(A6)
  4522. 00224996 294080A8          MOVE.L D0,-32600(A4)
  4523. 0022499A 6758              BEQ.S $2249F4
  4524. 0022499C 7010              MOVEQ #16,D0
  4525. 0022499E 223C00001002      MOVE.L #4098,D1
  4526. 002249A4 4EAEFFC4          JSR -60(A6)
  4527. 002249A8 294080AC          MOVE.L D0,-32596(A4)
  4528. 002249AC 6700003E          BEQ $2249EC
  4529. 002249B0 7203              MOVEQ #3,D1
  4530. 002249B2 2040              MOVEA.L D0,A0
  4531. 002249B4 4298              CLR.L (A0)+
  4532. 002249B6 51C9FFFC          DBRA D1,$2249B4
  4533. 002249BA 4EAEFFAC          JSR -84(A6)
  4534. 002249BE 206C80A8          MOVEA.L -32600(A4),A0
  4535. 002249C2 2068001E          MOVEA.L 30(A0),A0
  4536. 002249C6 3080              MOVE.W D0,(A0)
  4537. 002249C8 42680002          CLR.W 2(A0)
  4538. 002249CC 117C007F0005      MOVE.B #127,5(A0)
  4539. 002249D2 202C80A8          MOVE.L -32600(A4),D0
  4540. 002249D6 4E5D              UNLK A5
  4541. 002249D8 4E75              RTS
  4542.  
  4543. 002249DA 4E550000          LINK A5,#0
  4544. 002249DE 2C6C80B0          MOVEA.L -32592(A4),A6
  4545. 002249E2 7010              MOVEQ #16,D0
  4546. 002249E4 226C80AC          MOVEA.L -32596(A4),A1
  4547. 002249E8 4EAEFFBE          JSR -66(A6)
  4548. 002249EC 206C80A8          MOVEA.L -32600(A4),A0
  4549. 002249F0 4EAEFF8E          JSR -114(A6)
  4550. 002249F4 2C780004          MOVEA.L 4,A6
  4551. 002249F8 302C80A2          MOVE.W -32606(A4),D0
  4552. 002249FC 4EAEFEB0          JSR -336(A6)
  4553. 00224A00 226C80B0          MOVEA.L -32592(A4),A1
  4554. 00224A04 4EAEFE62          JSR -414(A6)
  4555. 00224A08 7000              MOVEQ #0,D0
  4556. 00224A0A 4E5D              UNLK A5
  4557. 00224A0C 4E75              RTS
  4558.  
  4559. 00224A0E 4E550000          LINK A5,#0
  4560. 00224A12 206C8066          MOVEA.L -32666(A4),A0
  4561. 00224A16 41E80005          LEA 5(A0),A0
  4562. 00224A1A 2C6C80B0          MOVEA.L -32592(A4),A6
  4563. 00224A1E 302D000A          MOVE.W 10(A5),D0
  4564. 00224A22 322D000E          MOVE.W 14(A5),D1
  4565. 00224A26 2F08              MOVE.L A0,-(A7)
  4566. 00224A28 4EAEFF88          JSR -120(A6)
  4567. 00224A2C 206C80AC          MOVEA.L -32596(A4),A0
  4568. 00224A30 D150              ADD.W D0,(A0)
  4569. 00224A32 D3680002          ADD.W D1,2(A0)
  4570. 00224A36 205F              MOVEA.L (A7)+,A0
  4571. 00224A38 4EAEFF82          JSR -126(A6)
  4572. 00224A3C 4E5D              UNLK A5
  4573. 00224A3E 4E75              RTS
  4574.  
  4575. 00224A40 4E550000          LINK A5,#0
  4576. 00224A44 206C8066          MOVEA.L -32666(A4),A0
  4577. 00224A48 41E80005          LEA 5(A0),A0
  4578. 00224A4C 2C6C80B0          MOVEA.L -32592(A4),A6
  4579. 00224A50 4EAEFF88          JSR -120(A6)
  4580. 00224A54 206C80AC          MOVEA.L -32596(A4),A0
  4581. 00224A58 302D000A          MOVE.W 10(A5),D0
  4582. 00224A5C D1680004          ADD.W D0,4(A0)
  4583. 00224A60 302D000E          MOVE.W 14(A5),D0
  4584. 00224A64 D1680006          ADD.W D0,6(A0)
  4585. 00224A68 302D0012          MOVE.W 18(A5),D0
  4586. 00224A6C D1680008          ADD.W D0,8(A0)
  4587. 00224A70 302D0016          MOVE.W 22(A5),D0
  4588. 00224A74 D168000A          ADD.W D0,10(A0)
  4589. 00224A78 316D001A000C      MOVE.W 26(A5),12(A0)
  4590. 00224A7E 206C8066          MOVEA.L -32666(A4),A0
  4591. 00224A82 41E80005          LEA 5(A0),A0
  4592. 00224A86 2C6C80B0          MOVEA.L -32592(A4),A6
  4593. 00224A8A 4EAEFF82          JSR -126(A6)
  4594. 00224A8E 4E5D              UNLK A5
  4595. 00224A90 4E75              RTS
  4596.  
  4597.  
  4598. 00224A92 48E73008          MOVEM.L D2-D3/A4,-(A7)
  4599. 00224A96 48E700C0          MOVEM.L A0-A1,-(A7)
  4600. 00224A9A 4EBA0662          JSR $2250FE(PC)
  4601. 00224A9E 4EBAFD86          JSR $224826(PC)
  4602. 00224AA2 4CDF0300          MOVEM.L (A7)+,A0-A1
  4603. 00224AA6 4CDF100C          MOVEM.L (A7)+,D2-D3/A4
  4604. 00224AAA 4E75              RTS
  4605.  
  4606.  
  4607. 00224AAC 4E55FFF8          LINK A5,#-8
  4608. 00224AB0 42A7              CLR.L -(A7)
  4609. 00224AB2 4EBA1236          JSR $225CEA(PC)
  4610. 00224AB6 584F              ADDQ.W #4,A7
  4611. 00224AB8 2B40FFFC          MOVE.L D0,-4(A5)
  4612. 00224ABC 206DFFFC          MOVEA.L -4(A5),A0
  4613. 00224AC0 202800AC          MOVE.L 172(A0),D0
  4614. 00224AC4 E580              ASL.L #2,D0
  4615. 00224AC6 2B40FFF8          MOVE.L D0,-8(A5)
  4616. 00224ACA 4AADFFF8          TST.L -8(A5)
  4617. 00224ACE 6722              BEQ.S $224AF2
  4618. 00224AD0 48780020          PEA 32
  4619. 00224AD4 486C8216          PEA -32234(A4)
  4620. 00224AD8 206DFFF8          MOVEA.L -8(A5),A0
  4621. 00224ADC 2F280010          MOVE.L 16(A0),-(A7)
  4622. 00224AE0 4EBA00D6          JSR $224BB8(PC)
  4623. 00224AE4 4FEF000C          LEA 12(A7),A7
  4624. 00224AE8 41EC8216          LEA -32234(A4),A0
  4625. 00224AEC 2008              MOVE.L A0,D0
  4626. 00224AEE 4E5D              UNLK A5
  4627. 00224AF0 4E75              RTS
  4628.  
  4629.  
  4630. 00224AF2 206DFFFC          MOVEA.L -4(A5),A0
  4631. 00224AF6 2028000A          MOVE.L 10(A0),D0
  4632. 00224AFA 60F2              BRA.S $224AEE
  4633. 00224AFC 4E550000          LINK A5,#0
  4634. 00224B00 4AAC805A          TST.L -32678(A4)
  4635. 00224B04 662A              BNE.S $224B30
  4636. 00224B06 42A7              CLR.L -(A7)
  4637. 00224B08 487A002A          PEA $224B34(PC)
  4638. 00224B0C 4EBA1250          JSR $225D5E(PC)
  4639. 00224B10 504F              ADDQ.W #8,A7
  4640. 00224B12 2940805A          MOVE.L D0,-32678(A4)
  4641. 00224B16 6706              BEQ.S $224B1E
  4642. 00224B18 7000              MOVEQ #0,D0
  4643. 00224B1A 4E5D              UNLK A5
  4644. 00224B1C 4E75              RTS
  4645. 00224B1E 42A7              CLR.L -(A7)
  4646. 00224B20 487900038004      PEA 229380
  4647. 00224B26 4EBA0FBC          JSR $225AE4(PC)
  4648. 00224B2A 504F              ADDQ.W #8,A7
  4649. 00224B2C 7001              MOVEQ #1,D0
  4650. 00224B2E 60EA              BRA.S $224B1A
  4651. 00224B30 7000              MOVEQ #0,D0
  4652. 00224B32 60E6              BRA.S $224B1A
  4653. 00224B34 696E              BVS.S $224BA4
  4654. 00224B36 7475              MOVEQ #117,D2
  4655. 00224B38 6974              BVS.S $224BAE
  4656. 00224B3A 696F              BVS.S $224BAB
  4657. 00224B3C 6E2E              BGT.S $224B6C
  4658. 00224B3E 6C69              BGE.S $224BA9
  4659. 00224B40 6272              BHI.S $224BB4
  4660. 00224B42 6172              BSR.S $224BB6
  4661. 00224B44 7900              DC.W 30976 ;"y."
  4662. 00224B46 4F4B              DC.W 20299 ;"OK"
  4663. 00224B48 00004E55          ORI.B #85,D0
  4664. 00224B4C FFF8              DC.W 65528 ;"ÿø"
  4665. 00224B4E 61AC              BSR.S $224AFC
  4666. 00224B50 4A80              TST.L D0
  4667. 00224B52 6704              BEQ.S $224B58
  4668. 00224B54 4E5D              UNLK A5
  4669. 00224B56 4E75              RTS
  4670.  
  4671.  
  4672. 00224B58 296D000880E2      MOVE.L 8(A5),-32542(A4)
  4673. 00224B5E 4EBAFF4C          JSR $224AAC(PC)
  4674. 00224B62 294080CE          MOVE.L D0,-32562(A4)
  4675. 00224B66 486C80D6          PEA -32554(A4)
  4676. 00224B6A 4EBA12A2          JSR $225E0E(PC)
  4677. 00224B6E 584F              ADDQ.W #4,A7
  4678. 00224B70 2B40FFFC          MOVE.L D0,-4(A5)
  4679. 00224B74 2F00              MOVE.L D0,-(A7)
  4680. 00224B76 486C80C2          PEA -32574(A4)
  4681. 00224B7A 4EBA1292          JSR $225E0E(PC)
  4682. 00224B7E 584F              ADDQ.W #4,A7
  4683. 00224B80 2B40FFF8          MOVE.L D0,-8(A5)
  4684. 00224B84 221F              MOVE.L (A7)+,D1
  4685. 00224B86 B280              CMP.L D0,D1
  4686. 00224B88 6C06              BGE.S $224B90
  4687. 00224B8A 2B6DFFF8FFFC      MOVE.L -8(A5),-4(A5)
  4688. 00224B90 48780050          PEA 80
  4689. 00224B94 206DFFFC          MOVEA.L -4(A5),A0
  4690. 00224B98 48680046          PEA 70(A0)
  4691. 00224B9C 42A7              CLR.L -(A7)
  4692. 00224B9E 42A7              CLR.L -(A7)
  4693. 00224BA0 486C80EA          PEA -32534(A4)
  4694. 00224BA4 486C80EA          PEA -32534(A4)
  4695. 00224BA8 486C80D6          PEA -32554(A4)
  4696. 00224BAC 42A7              CLR.L -(A7)
  4697. 00224BAE 4EBA1240          JSR $225DF0(PC)
  4698. 00224BB2 4FEF0020          LEA 32(A7),A7
  4699. 00224BB6 609C              BRA.S $224B54
  4700. 00224BB8 4E55FFFE          LINK A5,#-2
  4701. 00224BBC 48E70C20          MOVEM.L D4-D5/A2,-(A7)
  4702. 00224BC0 202D0008          MOVE.L 8(A5),D0
  4703. 00224BC4 E580              ASL.L #2,D0
  4704. 00224BC6 2440              MOVEA.L D0,A2
  4705. 00224BC8 204A              MOVEA.L A2,A0
  4706. 00224BCA 528A              ADDQ.L #1,A2
  4707. 00224BCC 1010              MOVE.B (A0),D0
  4708. 00224BCE 4880              EXT.W D0
  4709. 00224BD0 48C0              EXT.L D0
  4710. 00224BD2 1B40FFFF          MOVE.B D0,-1(A5)
  4711. 00224BD6 7000              MOVEQ #0,D0
  4712. 00224BD8 102DFFFF          MOVE.B -1(A5),D0
  4713. 00224BDC 2800              MOVE.L D0,D4
  4714. 00224BDE 660E              BNE.S $224BEE
  4715. 00224BE0 206D000C          MOVEA.L 12(A5),A0
  4716. 00224BE4 4210              CLR.B (A0)
  4717. 00224BE6 4CDF0430          MOVEM.L (A7)+,D4-D5/A2
  4718. 00224BEA 4E5D              UNLK A5
  4719. 00224BEC 4E75              RTS
  4720. 00224BEE B8AD0010          CMP.L 16(A5),D4
  4721. 00224BF2 6304              BLS.S $224BF8
  4722. 00224BF4 282D0010          MOVE.L 16(A5),D4
  4723. 00224BF8 7A00              MOVEQ #0,D5
  4724. 00224BFA 6010              BRA.S $224C0C
  4725. 00224BFC 204A              MOVEA.L A2,A0
  4726. 00224BFE 528A              ADDQ.L #1,A2
  4727. 00224C00 226D000C          MOVEA.L 12(A5),A1
  4728. 00224C04 52AD000C          ADDQ.L #1,12(A5)
  4729. 00224C08 1290              MOVE.B (A0),(A1)
  4730. 00224C0A 5285              ADDQ.L #1,D5
  4731. 00224C0C BA84              CMP.L D4,D5
  4732. 00224C0E 65EC              BCS.S $224BFC
  4733. 00224C10 BAAD0010          CMP.L 16(A5),D5
  4734. 00224C14 6406              BCC.S $224C1C
  4735. 00224C16 206D000C          MOVEA.L 12(A5),A0
  4736. 00224C1A 4210              CLR.B (A0)
  4737. 00224C1C 60C8              BRA.S $224BE6
  4738. 00224C1E 4E550000          LINK A5,#0
  4739. 00224C22 2F0A              MOVE.L A2,-(A7)
  4740. 00224C24 486D000C          PEA 12(A5)
  4741. 00224C28 486D0008          PEA 8(A5)
  4742. 00224C2C 4EBA0126          JSR $224D54(PC)
  4743. 00224C30 487900010000      PEA 65536
  4744. 00224C36 302C819E          MOVE.W -32354(A4),D0
  4745. 00224C3A C1FC0006          MULS #6,D0
  4746. 00224C3E 2F00              MOVE.L D0,-(A7)
  4747. 00224C40 4EBA1078          JSR $225CBA(PC)
  4748. 00224C44 29408258          MOVE.L D0,-32168(A4)
  4749. 00224C48 4FEF0010          LEA 16(A7),A7
  4750. 00224C4C 6614              BNE.S $224C62
  4751. 00224C4E 42A7              CLR.L -(A7)
  4752. 00224C50 487900010000      PEA 65536
  4753. 00224C56 4EBA0E8C          JSR $225AE4(PC)
  4754. 00224C5A 504F              ADDQ.W #8,A7
  4755. 00224C5C 2E6C825C          MOVEA.L -32164(A4),A7
  4756. 00224C60 4E75              RTS
  4757. 00224C62 206C8258          MOVEA.L -32168(A4),A0
  4758. 00224C66 42680004          CLR.W 4(A0)
  4759. 00224C6A 206C8258          MOVEA.L -32168(A4),A0
  4760. 00224C6E 317C00010010      MOVE.W #1,16(A0)
  4761. 00224C74 206C8258          MOVEA.L -32168(A4),A0
  4762. 00224C78 317C0001000A      MOVE.W #1,10(A0)
  4763. 00224C7E 206C825C          MOVEA.L -32164(A4),A0
  4764. 00224C82 202C825C          MOVE.L -32164(A4),D0
  4765. 00224C86 90A80004          SUB.L 4(A0),D0
  4766. 00224C8A 5080              ADDQ.L #8,D0
  4767. 00224C8C 29408260          MOVE.L D0,-32160(A4)
  4768. 00224C90 206C8260          MOVEA.L -32160(A4),A0
  4769. 00224C94 20BC4D414E58      MOVE.L #$4D414E58,(A0)
  4770. 00224C9A 42A7              CLR.L -(A7)
  4771. 00224C9C 4EBA1050          JSR $225CEE(PC)
  4772. 00224CA0 2440              MOVEA.L D0,A2
  4773. 00224CA2 4AAD0008          TST.L 8(A5)
  4774. 00224CA6 584F              ADDQ.W #4,A7
  4775. 00224CA8 671C              BEQ.S $224CC6
  4776. 00224CAA 2F2D000C          MOVE.L 12(A5),-(A7)
  4777. 00224CAE 2F2D0008          MOVE.L 8(A5),-(A7)
  4778. 00224CB2 2F0A              MOVE.L A2,-(A7)
  4779. 00224CB4 4EBA0450          JSR $225106(PC)
  4780. 00224CB8 297C000000018264  MOVE.L #1,-32156(A4)
  4781. 00224CC0 4FEF000C          LEA 12(A7),A7
  4782. 00224CC4 6042              BRA.S $224D08
  4783. 00224CC6 486A005C          PEA 92(A2)
  4784. 00224CCA 4EBA10F2          JSR $225DBE(PC)
  4785. 00224CCE 486A005C          PEA 92(A2)
  4786. 00224CD2 4EBA1056          JSR $225D2A(PC)
  4787. 00224CD6 29408268          MOVE.L D0,-32152(A4)
  4788. 00224CDA 206C8268          MOVEA.L -32152(A4),A0
  4789. 00224CDE 4AA80024          TST.L 36(A0)
  4790. 00224CE2 504F              ADDQ.W #8,A7
  4791. 00224CE4 6710              BEQ.S $224CF6
  4792. 00224CE6 206C8268          MOVEA.L -32152(A4),A0
  4793. 00224CEA 22680024          MOVEA.L 36(A0),A1
  4794. 00224CEE 2F11              MOVE.L (A1),-(A7)
  4795. 00224CF0 4EBA0D9E          JSR $225A90(PC)
  4796. 00224CF4 584F              ADDQ.W #4,A7
  4797. 00224CF6 2F2C8268          MOVE.L -32152(A4),-(A7)
  4798. 00224CFA 2F0A              MOVE.L A2,-(A7)
  4799. 00224CFC 4EBA062A          JSR $225328(PC)
  4800. 00224D00 296C8268826C      MOVE.L -32152(A4),-32148(A4)
  4801. 00224D06 504F              ADDQ.W #8,A7
  4802. 00224D08 4EBA0D9E          JSR $225AA8(PC)
  4803. 00224D0C 206C8258          MOVEA.L -32168(A4),A0
  4804. 00224D10 2080              MOVE.L D0,(A0)
  4805. 00224D12 4EBA0DAA          JSR $225ABE(PC)
  4806. 00224D16 206C8258          MOVEA.L -32168(A4),A0
  4807. 00224D1A 21400006          MOVE.L D0,6(A0)
  4808. 00224D1E 6716              BEQ.S $224D36
  4809. 00224D20 487803ED          PEA 1005
  4810. 00224D24 487A002C          PEA $224D52(PC)
  4811. 00224D28 4EBA0D86          JSR $225AB0(PC)
  4812. 00224D2C 206C8258          MOVEA.L -32168(A4),A0
  4813. 00224D30 2140000C          MOVE.L D0,12(A0)
  4814. 00224D34 504F              ADDQ.W #8,A7
  4815. 00224D36 2F2C826C          MOVE.L -32148(A4),-(A7)
  4816. 00224D3A 2F2C8270          MOVE.L -32144(A4),-(A7)
  4817. 00224D3E 4EBAF428          JSR $224168(PC)
  4818. 00224D42 42A7              CLR.L -(A7)
  4819. 00224D44 4EBA0B78          JSR $2258BE(PC)
  4820. 00224D48 4FEF000C          LEA 12(A7),A7
  4821. 00224D4C 245F              MOVEA.L (A7)+,A2
  4822. 00224D4E 4E5D              UNLK A5
  4823. 00224D50 4E75              RTS
  4824. 00224D52 2A00              MOVE.L D0,D5
  4825. 00224D54 4E55FFF4          LINK A5,#-12
  4826. 00224D58 48E70E30          MOVEM.L D4-D6/A2-A3,-(A7)
  4827. 00224D5C 42A7              CLR.L -(A7)
  4828. 00224D5E 4EBA0F8E          JSR $225CEE(PC)
  4829. 00224D62 2440              MOVEA.L D0,A2
  4830. 00224D64 4AAA00AC          TST.L 172(A2)
  4831. 00224D68 584F              ADDQ.W #4,A7
  4832. 00224D6A 67000148          BEQ $224EB4
  4833. 00224D6E 42A7              CLR.L -(A7)
  4834. 00224D70 4EBA0D1A          JSR $225A8C(PC)
  4835. 00224D74 584F              ADDQ.W #4,A7
  4836. 00224D76 294081A4          MOVE.L D0,-32348(A4)
  4837. 00224D7A 2F00              MOVE.L D0,-(A7)
  4838. 00224D7C 4EBA0D0E          JSR $225A8C(PC)
  4839. 00224D80 2F2C81A4          MOVE.L -32348(A4),-(A7)
  4840. 00224D84 4EBA0D16          JSR $225A9C(PC)
  4841. 00224D88 294081A4          MOVE.L D0,-32348(A4)
  4842. 00224D8C 202A00AC          MOVE.L 172(A2),D0
  4843. 00224D90 E580              ASL.L #2,D0
  4844. 00224D92 2A00              MOVE.L D0,D5
  4845. 00224D94 2045              MOVEA.L D5,A0
  4846. 00224D96 2C28003C          MOVE.L 60(A0),D6
  4847. 00224D9A 48780021          PEA 33
  4848. 00224D9E 487A0262          PEA $225002(PC)
  4849. 00224DA2 4EBA0FBE          JSR $225D62(PC)
  4850. 00224DA6 2B40FFFC          MOVE.L D0,-4(A5)
  4851. 00224DAA 4FEF0010          LEA 16(A7),A7
  4852. 00224DAE 6638              BNE.S $224DE8
  4853. 00224DB0 206C825C          MOVEA.L -32164(A4),A0
  4854. 00224DB4 22680008          MOVEA.L 8(A0),A1
  4855. 00224DB8 20690004          MOVEA.L 4(A1),A0
  4856. 00224DBC 2268FFF4          MOVEA.L -12(A0),A1
  4857. 00224DC0 2069FFF4          MOVEA.L -12(A1),A0
  4858. 00224DC4 D1FC000001AC      ADDA.L #428,A0
  4859. 00224DCA 2B48FFF8          MOVE.L A0,-8(A5)
  4860. 00224DCE 2045              MOVEA.L D5,A0
  4861. 00224DD0 226DFFF8          MOVEA.L -8(A5),A1
  4862. 00224DD4 2028003C          MOVE.L 60(A0),D0
  4863. 00224DD8 B091              CMP.L (A1),D0
  4864. 00224DDA 670A              BEQ.S $224DE6
  4865. 00224DDC 48780064          PEA 100
  4866. 00224DE0 4EBA0ADC          JSR $2258BE(PC)
  4867. 00224DE4 584F              ADDQ.W #4,A7
  4868. 00224DE6 600E              BRA.S $224DF6
  4869. 00224DE8 2F2DFFFC          MOVE.L -4(A5),-(A7)
  4870. 00224DEC 4EBA0D2A          JSR $225B18(PC)
  4871. 00224DF0 42ADFFF8          CLR.L -8(A5)
  4872. 00224DF4 584F              ADDQ.W #4,A7
  4873. 00224DF6 4AADFFF8          TST.L -8(A5)
  4874. 00224DFA 6706              BEQ.S $224E02
  4875. 00224DFC 206DFFF8          MOVEA.L -8(A5),A0
  4876. 00224E00 4290              CLR.L (A0)
  4877. 00224E02 4AAC8002          TST.L -32766(A4)
  4878. 00224E06 660C              BNE.S $224E14
  4879. 00224E08 2045              MOVEA.L D5,A0
  4880. 00224E0A 20280034          MOVE.L 52(A0),D0
  4881. 00224E0E E580              ASL.L #2,D0
  4882. 00224E10 29408002          MOVE.L D0,-32766(A4)
  4883. 00224E14 4AAC800A          TST.L -32758(A4)
  4884. 00224E18 6712              BEQ.S $224E2C
  4885. 00224E1A 487803ED          PEA 1005
  4886. 00224E1E 487A01EE          PEA $22500E(PC)
  4887. 00224E22 4EBA0C8C          JSR $225AB0(PC)
  4888. 00224E26 294080FE          MOVE.L D0,-32514(A4)
  4889. 00224E2A 504F              ADDQ.W #8,A7
  4890. 00224E2C 206D0008          MOVEA.L 8(A5),A0
  4891. 00224E30 29508102          MOVE.L (A0),-32510(A4)
  4892. 00224E34 42A7              CLR.L -(A7)
  4893. 00224E36 2F2C8102          MOVE.L -32510(A4),-(A7)
  4894. 00224E3A 4EBA0E7E          JSR $225CBA(PC)
  4895. 00224E3E 29408106          MOVE.L D0,-32506(A4)
  4896. 00224E42 2F2C8102          MOVE.L -32510(A4),-(A7)
  4897. 00224E46 2F2C8106          MOVE.L -32506(A4),-(A7)
  4898. 00224E4A 206D000C          MOVEA.L 12(A5),A0
  4899. 00224E4E 2F10              MOVE.L (A0),-(A7)
  4900. 00224E50 4EBA0200          JSR $225052(PC)
  4901. 00224E54 2045              MOVEA.L D5,A0
  4902. 00224E56 20280010          MOVE.L 16(A0),D0
  4903. 00224E5A E580              ASL.L #2,D0
  4904. 00224E5C 2640              MOVEA.L D0,A3
  4905. 00224E5E 42A7              CLR.L -(A7)
  4906. 00224E60 1013              MOVE.B (A3),D0
  4907. 00224E62 4880              EXT.W D0
  4908. 00224E64 48C0              EXT.L D0
  4909. 00224E66 5280              ADDQ.L #1,D0
  4910. 00224E68 2F00              MOVE.L D0,-(A7)
  4911. 00224E6A 4EBA0E4A          JSR $225CB6(PC)
  4912. 00224E6E 294081A0          MOVE.L D0,-32352(A4)
  4913. 00224E72 1013              MOVE.B (A3),D0
  4914. 00224E74 4880              EXT.W D0
  4915. 00224E76 48C0              EXT.L D0
  4916. 00224E78 5280              ADDQ.L #1,D0
  4917. 00224E7A 2F00              MOVE.L D0,-(A7)
  4918. 00224E7C 2F2C81A0          MOVE.L -32352(A4),-(A7)
  4919. 00224E80 2F0B              MOVE.L A3,-(A7)
  4920. 00224E82 4EBA01CE          JSR $225052(PC)
  4921. 00224E86 4FEF0028          LEA 40(A7),A7
  4922. 00224E8A 2F2C825C          MOVE.L -32164(A4),-(A7)
  4923. 00224E8E 2F2C8002          MOVE.L -32766(A4),-(A7)
  4924. 00224E92 2F06              MOVE.L D6,-(A7)
  4925. 00224E94 2F2C8006          MOVE.L -32762(A4),-(A7)
  4926. 00224E98 2F2C800E          MOVE.L -32754(A4),-(A7)
  4927. 00224E9C 4EBA0BDA          JSR $225A78(PC)
  4928. 00224EA0 2045              MOVEA.L D5,A0
  4929. 00224EA2 42A8003C          CLR.L 60(A0)
  4930. 00224EA6 4FEF0010          LEA 16(A7),A7
  4931. 00224EAA 2E5F              MOVEA.L (A7)+,A7
  4932. 00224EAC 7000              MOVEQ #0,D0
  4933. 00224EAE 4E75              RTS
  4934. 00224EB0 60000148          BRA $224FFA
  4935. 00224EB4 206A000A          MOVEA.L 10(A2),A0
  4936. 00224EB8 226C800E          MOVEA.L -32754(A4),A1
  4937. 00224EBC 1018              MOVE.B (A0)+,D0
  4938. 00224EBE B019              CMP.B (A1)+,D0
  4939. 00224EC0 6604              BNE.S $224EC6
  4940. 00224EC2 4A00              TST.B D0
  4941. 00224EC4 66F6              BNE.S $224EBC
  4942. 00224EC6 9021              SUB.B -(A1),D0
  4943. 00224EC8 4880              EXT.W D0
  4944. 00224ECA 48C0              EXT.L D0
  4945. 00224ECC 6600012C          BNE $224FFA
  4946. 00224ED0 202A0080          MOVE.L 128(A2),D0
  4947. 00224ED4 E580              ASL.L #2,D0
  4948. 00224ED6 2B40FFF8          MOVE.L D0,-8(A5)
  4949. 00224EDA 206DFFF8          MOVEA.L -8(A5),A0
  4950. 00224EDE 2028000C          MOVE.L 12(A0),D0
  4951. 00224EE2 E580              ASL.L #2,D0
  4952. 00224EE4 2B40FFF8          MOVE.L D0,-8(A5)
  4953. 00224EE8 2B6DFFF8FFFC      MOVE.L -8(A5),-4(A5)
  4954. 00224EEE 7802              MOVEQ #2,D4
  4955. 00224EF0 4AADFFF8          TST.L -8(A5)
  4956. 00224EF4 6710              BEQ.S $224F06
  4957. 00224EF6 206DFFF8          MOVEA.L -8(A5),A0
  4958. 00224EFA 2010              MOVE.L (A0),D0
  4959. 00224EFC E580              ASL.L #2,D0
  4960. 00224EFE 2B40FFF8          MOVE.L D0,-8(A5)
  4961. 00224F02 5244              ADDQ.W #1,D4
  4962. 00224F04 60EA              BRA.S $224EF0
  4963. 00224F06 42A7              CLR.L -(A7)
  4964. 00224F08 7000              MOVEQ #0,D0
  4965. 00224F0A 3004              MOVE.W D4,D0
  4966. 00224F0C 5380              SUBQ.L #1,D0
  4967. 00224F0E E780              ASL.L #3,D0
  4968. 00224F10 2040              MOVEA.L D0,A0
  4969. 00224F12 48680018          PEA 24(A0)
  4970. 00224F16 4EBA0DA2          JSR $225CBA(PC)
  4971. 00224F1A 2B40FFF4          MOVE.L D0,-12(A5)
  4972. 00224F1E 2B6DFFFCFFF8      MOVE.L -4(A5),-8(A5)
  4973. 00224F24 206DFFF4          MOVEA.L -12(A5),A0
  4974. 00224F28 3144000E          MOVE.W D4,14(A0)
  4975. 00224F2C 7800              MOVEQ #0,D4
  4976. 00224F2E 504F              ADDQ.W #8,A7
  4977. 00224F30 4AADFFF8          TST.L -8(A5)
  4978. 00224F34 673C              BEQ.S $224F72
  4979. 00224F36 7000              MOVEQ #0,D0
  4980. 00224F38 3004              MOVE.W D4,D0
  4981. 00224F3A E780              ASL.L #3,D0
  4982. 00224F3C 2040              MOVEA.L D0,A0
  4983. 00224F3E D1EDFFF4          ADDA.L -12(A5),A0
  4984. 00224F42 226DFFF8          MOVEA.L -8(A5),A1
  4985. 00224F46 5989              SUBQ.L #4,A1
  4986. 00224F48 21490010          MOVE.L A1,16(A0)
  4987. 00224F4C 206DFFF8          MOVEA.L -8(A5),A0
  4988. 00224F50 7000              MOVEQ #0,D0
  4989. 00224F52 3004              MOVE.W D4,D0
  4990. 00224F54 E780              ASL.L #3,D0
  4991. 00224F56 2240              MOVEA.L D0,A1
  4992. 00224F58 D3EDFFF4          ADDA.L -12(A5),A1
  4993. 00224F5C 2368FFFC0014      MOVE.L -4(A0),20(A1)
  4994. 00224F62 206DFFF8          MOVEA.L -8(A5),A0
  4995. 00224F66 2010              MOVE.L (A0),D0
  4996. 00224F68 E580              ASL.L #2,D0
  4997. 00224F6A 2B40FFF8          MOVE.L D0,-8(A5)
  4998. 00224F6E 5244              ADDQ.W #1,D4
  4999. 00224F70 60BE              BRA.S $224F30
  5000. 00224F72 7000              MOVEQ #0,D0
  5001. 00224F74 3004              MOVE.W D4,D0
  5002. 00224F76 E780              ASL.L #3,D0
  5003. 00224F78 2040              MOVEA.L D0,A0
  5004. 00224F7A D1EDFFF4          ADDA.L -12(A5),A0
  5005. 00224F7E 216C81060010      MOVE.L -32506(A4),16(A0)
  5006. 00224F84 3004              MOVE.W D4,D0
  5007. 00224F86 5244              ADDQ.W #1,D4
  5008. 00224F88 7200              MOVEQ #0,D1
  5009. 00224F8A 3200              MOVE.W D0,D1
  5010. 00224F8C E781              ASL.L #3,D1
  5011. 00224F8E 2041              MOVEA.L D1,A0
  5012. 00224F90 D1EDFFF4          ADDA.L -12(A5),A0
  5013. 00224F94 216C81020014      MOVE.L -32510(A4),20(A0)
  5014. 00224F9A 7000              MOVEQ #0,D0
  5015. 00224F9C 3004              MOVE.W D4,D0
  5016. 00224F9E E780              ASL.L #3,D0
  5017. 00224FA0 2040              MOVEA.L D0,A0
  5018. 00224FA2 D1EDFFF4          ADDA.L -12(A5),A0
  5019. 00224FA6 216C81A00010      MOVE.L -32352(A4),16(A0)
  5020. 00224FAC 3004              MOVE.W D4,D0
  5021. 00224FAE 5244              ADDQ.W #1,D4
  5022. 00224FB0 7200              MOVEQ #0,D1
  5023. 00224FB2 3200              MOVE.W D0,D1
  5024. 00224FB4 E781              ASL.L #3,D1
  5025. 00224FB6 2041              MOVEA.L D1,A0
  5026. 00224FB8 D1EDFFF4          ADDA.L -12(A5),A0
  5027. 00224FBC 226C81A0          MOVEA.L -32352(A4),A1
  5028. 00224FC0 1011              MOVE.B (A1),D0
  5029. 00224FC2 4880              EXT.W D0
  5030. 00224FC4 48C0              EXT.L D0
  5031. 00224FC6 5280              ADDQ.L #1,D0
  5032. 00224FC8 21400014          MOVE.L D0,20(A0)
  5033. 00224FCC 2F2DFFF4          MOVE.L -12(A5),-(A7)
  5034. 00224FD0 486A004A          PEA 74(A2)
  5035. 00224FD4 4EBA0B00          JSR $225AD6(PC)
  5036. 00224FD8 2F2C81A4          MOVE.L -32348(A4),-(A7)
  5037. 00224FDC 4EBA0AAE          JSR $225A8C(PC)
  5038. 00224FE0 256C80FE00A0      MOVE.L -32514(A4),160(A2)
  5039. 00224FE6 206D0008          MOVEA.L 8(A5),A0
  5040. 00224FEA 20AC8102          MOVE.L -32510(A4),(A0)
  5041. 00224FEE 206D000C          MOVEA.L 12(A5),A0
  5042. 00224FF2 20AC8106          MOVE.L -32506(A4),(A0)
  5043. 00224FF6 4FEF000C          LEA 12(A7),A7
  5044. 00224FFA 4CDF0C70          MOVEM.L (A7)+,D4-D6/A2-A3
  5045. 00224FFE 4E5D              UNLK A5
  5046.